diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/Spec.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Spec.pm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/File/Spec.pm b/Master/tlpkg/tlperl/lib/File/Spec.pm index 34c527eea2f..782e28425b7 100644 --- a/Master/tlpkg/tlperl/lib/File/Spec.pm +++ b/Master/tlpkg/tlperl/lib/File/Spec.pm @@ -3,8 +3,8 @@ package File::Spec; use strict; use vars qw(@ISA $VERSION); -$VERSION = '3.33'; -$VERSION = eval $VERSION; +$VERSION = '3.39_02'; +$VERSION =~ tr/_//; my %module = (MacOS => 'Mac', MSWin32 => 'Win32', @@ -199,8 +199,10 @@ X<splitpath> X<split, path> Splits a path in to volume, directory, and filename portions. On systems with no concept of volume, returns '' for volume. - ($volume,$directories,$file) = File::Spec->splitpath( $path ); - ($volume,$directories,$file) = File::Spec->splitpath( $path, $no_file ); + ($volume,$directories,$file) = + File::Spec->splitpath( $path ); + ($volume,$directories,$file) = + File::Spec->splitpath( $path, $no_file ); For systems with no syntax differentiating filenames from directories, assumes that the last file is a path unless C<$no_file> is true or a |