diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-02 04:56:50 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-02 04:56:50 +0000 |
| commit | 423d68ab98265bbd73b2ade2438378d2784c6e8c (patch) | |
| tree | 62c5bfc40305bc3b6086aa3c84335f8156790c15 /lib/File | |
| parent | f157735d6d32b39a597f1788ffbcbb04d8a1f426 (diff) | |
| download | perl-423d68ab98265bbd73b2ade2438378d2784c6e8c.tar.gz | |
[win32] remove totally egregious s/\\dir// in File::Find
p4raw-id: //depot/win32/perl@452
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Find.pm | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 70629d4ce0..11835067ff 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -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 '..'; } |