diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/Spec')
-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 | 4 | ||||
-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 | 14 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec/Win32.pm | 2 |
8 files changed, 15 insertions, 15 deletions
diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm b/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm index 050a1bb2b77..0709c6fc072 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.30'; +$VERSION = '3.33'; $VERSION = eval $VERSION; @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 54ff667c52f..a3bb62b8656 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Epoc.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Epoc.pm @@ -3,7 +3,7 @@ package File::Spec::Epoc; use strict; use vars qw($VERSION @ISA); -$VERSION = '3.30'; +$VERSION = '3.33'; $VERSION = eval $VERSION; 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 e7becc7cfae..2ee8f5d2c1a 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec/Functions.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec/Functions.pm @@ -5,7 +5,7 @@ use strict; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION); -$VERSION = '3.30'; +$VERSION = '3.33'; $VERSION = eval $VERSION; require Exporter; diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Mac.pm b/Master/tlpkg/tlperl/lib/File/Spec/Mac.pm index 8b47470d6b3..f47293cb2de 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 vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.30'; +$VERSION = '3.34'; $VERSION = eval $VERSION; @ISA = qw(File::Spec::Unix); @@ -740,7 +740,7 @@ sub rel2abs { # Split up paths - # igonore $path's volume + # ignore $path's volume my ( $path_dirs, $path_file ) = ($self->splitpath($path))[1,2] ; # ignore $base's file part diff --git a/Master/tlpkg/tlperl/lib/File/Spec/OS2.pm b/Master/tlpkg/tlperl/lib/File/Spec/OS2.pm index a8fa63e3c16..a380dd719b7 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 vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.30'; +$VERSION = '3.33'; $VERSION = eval $VERSION; @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 8fd2320a392..b276b213920 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 vars qw($VERSION); -$VERSION = '3.30'; +$VERSION = '3.33'; $VERSION = eval $VERSION; =head1 NAME diff --git a/Master/tlpkg/tlperl/lib/File/Spec/VMS.pm b/Master/tlpkg/tlperl/lib/File/Spec/VMS.pm index 6135fc54635..120575a3e0f 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 vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.30'; +$VERSION = '3.34'; $VERSION = eval $VERSION; @ISA = qw(File::Spec::Unix); @@ -204,7 +204,7 @@ sub catdir { if ($unix_mode) { - # Fix up mixed syntax imput as good as possible - GIGO + # Fix up mixed syntax input as good as possible - GIGO $path = unixify($path) if $path_vms; $dir = unixify($dir) if $dir_vms; @@ -216,7 +216,7 @@ sub catdir { return $self->SUPER::canonpath($rslt); } else { - #with <> posible instead of [. + #with <> possible instead of [. # Normalize the brackets # Fixme - need to not switch when preceded by ^. $path =~ s/</\[/g; @@ -224,7 +224,7 @@ sub catdir { $dir =~ s/</\[/g; $dir =~ s/>/\]/g; - # Fix up mixed syntax imput as good as possible - GIGO + # Fix up mixed syntax input as good as possible - GIGO $path = vmsify($path) if $path_unix; $dir = vmsify($dir) if $dir_unix; @@ -413,7 +413,7 @@ sub catfile { # Assume VMS mode if (($spath_unix == $spath_vms) && ($file_unix == $file_vms)) { - # Ambigous, so if in $unix_rpt mode then assume UNIX. + # Ambiguous, so if in $unix_rpt mode then assume UNIX. $unix_mode = 1 if $unix_rpt; } else { $unix_mode = 1 @@ -433,7 +433,7 @@ sub catfile { $rslt = $spath; $file = unixify($file) if ($file_vms); - # Unix merge may need a directory delimitor. + # Unix merge may need a directory delimiter. # A null path indicates root on Unix. $rslt .= '/' unless ($rslt =~ m#/$#); } @@ -469,7 +469,7 @@ sub catfile { } return $self->canonpath($rslt) unless $unix_rpt; - # In Unix report mode, do not strip off redundent path information. + # In Unix report mode, do not strip off redundant path information. return $rslt; } diff --git a/Master/tlpkg/tlperl/lib/File/Spec/Win32.pm b/Master/tlpkg/tlperl/lib/File/Spec/Win32.pm index 93301ac7357..28d8510ccf6 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 vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.30'; +$VERSION = '3.33'; $VERSION = eval $VERSION; @ISA = qw(File::Spec::Unix); |