diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-05-27 16:22:59 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-05-27 16:22:59 +0000 |
| commit | d6802e4345360e741b212b52b6af4a704cfce207 (patch) | |
| tree | 4d9740c0e3f0aae2328f8d0e5cbc0fd65dbe594f /lib/Cwd.pm | |
| parent | 5c5be41ca584ca84b007976e40b3e32e6829bc3f (diff) | |
| download | perl-d6802e4345360e741b212b52b6af4a704cfce207.tar.gz | |
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
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 15525dab42..a568f48fde 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; } |