From: Steve Hay <SteveHay@planit.com>
Date: Fri, 27 May 2005 16:22:59 +0000 (+0000)
Subject: Fix failing Cwd tests on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d6802e4345360e741b212b52b6af4a704cfce207;p=p5sagit%2Fp5-mst-13.2.git

Fix failing Cwd tests on Win32

Patch was posted to Ken previously

(see http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2005-05/msg00226.html)

but no reply as yet.  I'll mail him again...

p4raw-id: //depot/perl@24607
---

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 15525da..a568f48 100644
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -170,7 +170,7 @@ use strict;
 use Exporter;
 use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
 
-$VERSION = '3.07';
+$VERSION = '3.07_01';
 
 @ISA = qw/ Exporter /;
 @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
@@ -585,9 +585,7 @@ sub fast_abs_path {
 	    return fast_abs_path($link_target);
 	}
 	
-	my $tdir = $dir;
-	$tdir =~ s!\\!/!g if $^O eq 'MSWin32';
-	return $tdir eq File::Spec->rootdir
+	return $dir eq File::Spec->rootdir
 	  ? File::Spec->catpath($vol, $dir, $file)
 	  : fast_abs_path(File::Spec->catpath($vol, $dir, '')) . '/' . $file;
     }