diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-23 22:17:45 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-23 22:17:45 +0000 |
| commit | f505c9832e74f948e2721f6c36b348502f15804c (patch) | |
| tree | bfa4641f68bd2b663097c30a4dc8abf7e266a367 /lib/File/Spec/Win32.pm | |
| parent | 9ffcd8612a179e6a837df3e98019ae7fe24b4fa1 (diff) | |
| download | perl-f505c9832e74f948e2721f6c36b348502f15804c.tar.gz | |
File::Spec fixes from Jan Dubois <jan.dubois@ibm.net>
Date: Sat, 06 Mar 1999 17:50:49 +0100
Message-ID: <36e25209.33833760@smtp1.ibm.net>
Subject: [PATCH 5.005_56] Fixes for File::Spec::Functions.pm
--
Date: Sat, 06 Mar 1999 18:15:00 +0100
Message-ID: <36e36222.37954195@smtp1.ibm.net>
Subject: [PATCH 5.005_56] Fix for File::Spec::Win32.pm
p4raw-id: //depot/perl@3132
Diffstat (limited to 'lib/File/Spec/Win32.pm')
| -rw-r--r-- | lib/File/Spec/Win32.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Spec/Win32.pm b/lib/File/Spec/Win32.pm index 0e00af711d..0ea4970b41 100644 --- a/lib/File/Spec/Win32.pm +++ b/lib/File/Spec/Win32.pm @@ -99,7 +99,7 @@ sub canonpath { my ($self,$path,$reduce_ricochet) = @_; $path =~ s/^([a-z]:)/\u$1/; $path =~ s|/|\\|g; - $path =~ s|([^\\])\\+|\1\\|g; # xx////xx -> xx/xx + $path =~ s|([^\\])\\+|$1\\|g; # xx////xx -> xx/xx $path =~ s|(\\\.)+\\|\\|g; # xx/././xx -> xx/xx $path =~ s|^(\.\\)+|| unless $path eq ".\\"; # ./xx -> xx $path =~ s|\\$|| |