[win32] remove totally egregious s/\\dir// in File::Find

p4raw-id: //depot/win32/perl@452

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index 70629d4..1183506 100644 (file)
--- 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 '..';
                    }