diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/Spec')
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Epoc.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Functions.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Mac.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/OS2.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Unix.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/VMS.pm | 2 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Win32.pm | 14 |
9 files changed, 10 insertions, 20 deletions
diff --git a/Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm b/Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm index 3c8407266df..2b7d18a85fa 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/AmigaOS.pm @@ -3,7 +3,7 @@ package File::Spec::AmigaOS; use strict; require File::Spec::Unix; -our $VERSION = '3.74'; +our $VERSION = '3.78'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm b/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm index ed646a160fd..d44ced3d636 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm @@ -3,7 +3,7 @@ package File::Spec::Cygwin; use strict; require File::Spec::Unix; -our $VERSION = '3.74'; +our $VERSION = '3.78'; $VERSION =~ tr/_//d; our @ISA = qw(File::Spec::Unix); diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Epoc.pm b/Master/tlpkg/tlperl/lib/File/Spec/Epoc.pm index 58f74a33ca2..b611cd9f64e 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Epoc.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Epoc.pm @@ -2,7 +2,7 @@ package File::Spec::Epoc; use strict; -our $VERSION = '3.74'; +our $VERSION = '3.78'; $VERSION =~ tr/_//d; require File::Spec::Unix; diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Functions.pm b/Master/tlpkg/tlperl/lib/File/Spec/Functions.pm index 9af6352dd24..3f617bdd36b 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Functions.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Functions.pm @@ -3,7 +3,7 @@ package File::Spec::Functions; use File::Spec; use strict; -our $VERSION = '3.74'; +our $VERSION = '3.78'; $VERSION =~ tr/_//d; require Exporter; diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Mac.pm b/Master/tlpkg/tlperl/lib/File/Spec/Mac.pm index a1b044d152a..d920d2f5db5 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Mac.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Mac.pm @@ -4,7 +4,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); diff --git a/Master/tlpkg/tlperl/lib/File/Spec/OS2.pm b/Master/tlpkg/tlperl/lib/File/Spec/OS2.pm index e961ad4e333..603781aa856 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/OS2.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/OS2.pm @@ -4,7 +4,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); diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Unix.pm b/Master/tlpkg/tlperl/lib/File/Spec/Unix.pm index a1fa6736a1e..6749e6047c0 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Unix.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Unix.pm @@ -3,7 +3,7 @@ package File::Spec::Unix; use strict; use Cwd (); -our $VERSION = '3.74'; +our $VERSION = '3.78'; $VERSION =~ tr/_//d; =head1 NAME diff --git a/Master/tlpkg/tlperl/lib/File/Spec/VMS.pm b/Master/tlpkg/tlperl/lib/File/Spec/VMS.pm index cbafdce88ab..6c20fb1922e 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/VMS.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/VMS.pm @@ -4,7 +4,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); 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 |