This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[win32] remove totally egregious s/\\dir// in File::Find
authorGurusamy Sarathy <gsar@cpan.org>
Mon, 2 Feb 1998 04:56:50 +0000 (04:56 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 2 Feb 1998 04:56:50 +0000 (04:56 +0000)
p4raw-id: //depot/win32/perl@452

lib/File/Find.pm

index 70629d4..1183506 100644 (file)
@@ -95,7 +95,6 @@ sub find {
                    my $fixtopdir = $topdir;
                    $fixtopdir =~ s,/$,, ;
                    $fixtopdir =~ s/\.dir$// if $Is_VMS;
-                   $fixtopdir =~ s/\\dir$// if $Is_NT;
                    &finddir($wanted,$fixtopdir,$topnlink);
                }
            }
@@ -156,7 +155,6 @@ sub finddir {
 
                    if (!$prune && chdir $_) {
                        $name =~ s/\.dir$// if $Is_VMS;
-                       $name =~ s/\\dir$// if $Is_NT;
                        &finddir($wanted,$name,$nlink);
                        chdir '..';
                    }
@@ -185,7 +183,6 @@ sub finddepth {
                my $fixtopdir = $topdir;
                $fixtopdir =~ s,/$,, ;
                $fixtopdir =~ s/\.dir$// if $Is_VMS;
-               $fixtopdir =~ s/\\dir$// if $Is_NT;
                &finddepthdir($wanted,$fixtopdir,$topnlink);
                ($dir,$_) = ($fixtopdir,'.');
                $name = $fixtopdir;
@@ -245,7 +242,6 @@ sub finddepthdir {
 
                    if (chdir $_) {
                        $name =~ s/\.dir$// if $Is_VMS;
-                       $name =~ s/\\dir$// if $Is_NT;
                        &finddepthdir($wanted,$name,$nlink);
                        chdir '..';
                    }