Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

File::Path rmtree is not thread safe #12018

Closed
p5pRT opened this issue Mar 26, 2012 · 5 comments
Closed

File::Path rmtree is not thread safe #12018

p5pRT opened this issue Mar 26, 2012 · 5 comments

Comments

@p5pRT
Copy link

p5pRT commented Mar 26, 2012

Migrated from rt.perl.org#112008 (status was 'rejected')

Searchable as RT112008$

@p5pRT
Copy link
Author

p5pRT commented Mar 26, 2012

From steve@rhythm.com

Created by steve@rhythm.com

On Linux, threads are typically created with pthread_create which
eventually ends up being a clone() call with CLONE_FS set which
means all threads share one /proc/self/cwd. The code within
File​::Path does a chdir(). If a another thread does a chdir()
files might be deleted that are not suppose to be deleted
because the rmtree will not be in the directory that it expects
to be in. I wrote a simple test case which shows the wrong files
being deleted​:

Deleting /tmp/test/junk
Thread 1 terminated abnormally​: previous directory .. changed before
entering /tmp/test/junk/1/2, expected dev=2051 inode=4105812, actual
dev=2051 ino=4105807, aborting. at ./rmtree.pl line 56 thread 1
CWD​: /tmp/test/precious/1
found 971 files in /tmp/test/junk
found 29 files in /tmp/test/precious

I have replicated this problem on linux with perl v5.10.0
and v5.14.2. OS X perl v5.10.0 also exhibits this issue.
Here is the test program​:

#!/usr/bin/perl

use File​::Path qw( rmtree mkpath);
use File​::Find;
use Cwd 'getcwd';
use threads;

mkpath("/tmp/test/precious/1/2",0755);
mkpath("/tmp/test/junk/1/2",0755);

for( $x = 0 ;$x < 1000 ; $x++){
  open(F,">/tmp/test/junk/1/2/file$x");
  open(F,">/tmp/test/precious/1/2/file$x");
}

chdir("/tmp");
threads->new(\&sub1);
threads->new(\&sub2);

$_->join() for threads->list();

print "CWD​: " . getcwd() . "\n";

sub wanted {
  if( -f $_){
  $count++;
  }
}

foreach my $dir ( qw(/tmp/test/junk /tmp/test/precious)){
  $count = 0 ;
  find(\&wanted, $dir);
  print "found $count files in $dir\n";
}

sub sub2(){
  while($z < 1000 ){
  chdir("/tmp/test/precious/1/2");
  $z++;
  }
}
sub sub1(){
  _delDir("/tmp/test/junk");
  print "THREAD CWD 2​: " . getcwd() . "\n";
  $isdone = 1;
}

sub _delDir {
  my ( $dir ) = @​_;

  my $rmTreeErrors;
  if ( $dir and ( -d $dir ) ) {
  print ( "Deleting $dir\n" );
  rmtree( $dir, { verbose => 0, error => \$rmTreeErrors } );
  foreach my $rmTreeErr ( @​{ $rmTreeErrors } ) {
  my ( $file, $message ) = each %{ $rmTreeErr };
  if ( $file eq '' ) {
  print ( "Problem with rmtree($dir)​: $message\n" );
  }
  else {
  print ( "Error in rmtree($dir)​: Problem deleting $file -- $message\n" );
  }
  }
  }

  return $rmTreeErrors;
}

Perl Info

Flags:
    category=library
    severity=medium
    module=File::Path

Site configuration information for perl 5.14.2:

Configured by steve at Mon Mar 26 13:11:01 PDT 2012.

Summary of my perl5 (revision 5 version 14 subversion 2) configuration:
   
  Platform:
    osname=linux, osvers=2.6.27.23-10rh, archname=linux-linux-thread
    uname='linux lid9 2.6.27.23-10rh #4 smp wed dec 28 16:40:10 pst 2011 x86_64 x86_64 x86_64 gnulinux '
    config_args='-ds -e'
    hint=previous, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=undef
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=define, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='cc', ccflags ='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64',
    optimize='-O2',
    cppflags='-fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64'
    ccversion='', gccversion='4.3.2 [gcc-4_3-branch revision 141291]', gccosandvers=''
    intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
    ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='cc', ldflags =' -fstack-protector -lpthread'
    libpth=/usr/local/lib /lib/../lib64 /usr/lib/../lib64 /lib /usr/lib /lib64 /usr/lib64 /usr/local/lib64
    libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc -lgdbm_compat
    perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc
    libc=/lib/libc-2.9.so, so=so, useshrplib=false, libperl=libperl.a
    gnulibc_version='2.9'
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E'
    cccdlflags='-fPIC', lddlflags='-shared -O2 -fstack-protector -lpthread'

Locally applied patches:
    


@INC for perl 5.14.2:
    /usr/lsd/lib/perl
    /usr/local/prod/perl
    /usr/local/rnh/perl
    /opt/perl-5.14.2/lib/site_perl/5.14.2/linux-linux
    /opt/perl-5.14.2/lib/site_perl/5.14.2
    /opt/perl-5.14.2/lib/5.14.2/linux-linux
    /opt/perl-5.14.2/lib/5.14.2
    .


Environment for perl 5.14.2:
    HOME=/home/steve
    LANG=C
    LANGUAGE (unset)
    LD_LIBRARY_PATH=/opt/randh/mesa-7.4.3/lib64:/opt/randh/mesa-7.4.3/lib:/usr/lib64/mpi/gcc/openmpi/lib64
    LOGDIR (unset)
    PATH=/opt/perl-5.14.2/bin:/home/steve/bin.Linux_i686:/usr/apps/ffmpeg/ffmpeg-git20111012/bin:/muse/bin:/usr/apps/bin:/usr/local/prod/bin:/usr/local/rnh/bin:/usr/site/bin:/usr/local/bin:/opt/kde3/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/bin/X11:/usr/lsd/bin:/opt/gnome/bin:/usr/games:.
    PERL5LIB=/usr/lsd/lib/perl:/usr/local/prod/perl:/usr/local/rnh/perl
    PERL_BADLANG (unset)
    SHELL=/bin/tcsh

@p5pRT
Copy link
Author

p5pRT commented Sep 30, 2014

From @karenetheridge

As discussed in https://rt.cpan.org/Ticket/Display.html?id=99230#txn-1416715, if we can't fix the implemention, this limitation should be documented, as well as​: `die 'rmtree not thread-safe' if threads->tid`.

@p5pRT
Copy link
Author

p5pRT commented Sep 30, 2014

The RT System itself - Status changed from 'new' to 'open'

@p5pRT
Copy link
Author

p5pRT commented Oct 1, 2014

From @jkeenan

On Tue Sep 30 15​:00​:59 2014, ether wrote​:

As discussed in https://rt.cpan.org/Ticket/Display.html?id=99230#txn-
1416715, if we can't fix the implemention, this limitation should be
documented, as well as​: `die 'rmtree not thread-safe' if threads-

tid`.

File​::Path is found in the Perl 5 core distribution under 'cpan/', which suggests that it is primarily maintained on CPAN. So that's where the patch should originate.

Thank you very much.

--
James E Keenan (jkeenan@​cpan.org)

@p5pRT p5pRT closed this as completed Jun 24, 2015
@p5pRT
Copy link
Author

p5pRT commented Jun 24, 2015

@iabyn - Status changed from 'open' to 'rejected'

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Projects
None yet
Development

No branches or pull requests

1 participant