From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 2 Feb 1998 04:56:50 +0000 (+0000)
Subject: [win32] remove totally egregious s/\\dir// in File::Find
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=423d68ab98265bbd73b2ade2438378d2784c6e8c;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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 '..';
 		    }