diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/Spec/Win32.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Win32.pm | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Win32.pm b/Master/tlpkg/tlperl/lib/File/Spec/Win32.pm index 9ccafa7d15f..59340104391 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Win32.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Win32.pm @@ -5,7 +5,7 @@ use strict; use Cwd (); require File::Spec::Unix; -our $VERSION = '3.74'; +our $VERSION = '3.78'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); @@ -137,7 +137,7 @@ sub catfile { # Legacy / compatibility support # shift, return _canon_cat( "/", @_ ) - if $_[0] eq ""; + if !@_ || $_[0] eq ""; # Compatibility with File::Spec <= 3.26: # catfile('A:', 'foo') should return 'A:\foo'. @@ -407,16 +407,6 @@ sub _canon_cat # @path -> path )+ # performance boost -- I do not know why }{\\}gx; - # XXX I do not know whether more dots are supported by the OS supporting - # this ... annotation (NetWare or symbian but not MSWin32). - # Then .... could easily become ../../.. etc: - # Replace \.\.\. by (\.\.\.+) and substitute with - # { $1 . ".." . "\\.." x (length($2)-2) }gex - # ... --> ../.. - $path =~ s{ (\A|\\) # at begin or after a slash - \.\.\. - (?=\\|\z) # at end or followed by slash - }{$1..\\..}gx; # xx\yy\..\zz --> xx\zz while ( $path =~ s{(?: (?:\A|\\) # at begin or after a slash |