diff options
| author | Yves Orton <demerphq@gmail.com> | 2005-02-18 17:31:50 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-02-18 15:34:59 +0000 |
| commit | 8e6a5f51ce130bc855c9ce739a2ac67752f39617 (patch) | |
| tree | 736a640c8e64d84bc2fc97a75e4229e02a791a6e /lib/Cwd.pm | |
| parent | b2118e7e233f26626887786dffd133bfb7222840 (diff) | |
| download | perl-8e6a5f51ce130bc855c9ce739a2ac67752f39617.tar.gz | |
Re: Integration of PathTools 3.04
Message-ID: <9b18b31105021807316af0aed5@mail.gmail.com>
p4raw-id: //depot/perl@23982
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index cf07cb484d..c389c385d6 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.04'; +$VERSION = '3.04_01'; @ISA = qw/ Exporter /; @EXPORT = qw(cwd getcwd fastcwd fastgetcwd); @@ -583,7 +583,9 @@ sub fast_abs_path { return fast_abs_path($link_target); } - return $dir eq File::Spec->rootdir + my $tdir = $dir; + $tdir =~ s!\\!/!g if $^O eq 'MSWin32'; + return $tdir eq File::Spec->rootdir ? File::Spec->catpath($vol, $dir, $file) : fast_abs_path(File::Spec->catpath($vol, $dir, '')) . '/' . $file; } |