summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/File/Spec
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/Spec')
-rw-r--r--Master/tlpkg/tlperl/lib/File/Spec/Cygwin.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/File/Spec/Epoc.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/File/Spec/Functions.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/File/Spec/Mac.pm4
-rw-r--r--Master/tlpkg/tlperl/lib/File/Spec/OS2.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/File/Spec/Unix.pm2
-rw-r--r--Master/tlpkg/tlperl/lib/File/Spec/VMS.pm14
-rw-r--r--Master/tlpkg/tlperl/lib/File/Spec/Win32.pm2
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);