diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/File/Basename.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/File/Basename.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/File/Basename.pm b/Master/tlpkg/tlperl/lib/File/Basename.pm index ad98d24d194..4b4fe95cfd7 100644 --- a/Master/tlpkg/tlperl/lib/File/Basename.pm +++ b/Master/tlpkg/tlperl/lib/File/Basename.pm @@ -54,7 +54,7 @@ our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase); require Exporter; @ISA = qw(Exporter); @EXPORT = qw(fileparse fileparse_set_fstype basename dirname); -$VERSION = "2.84"; +$VERSION = "2.85"; fileparse_set_fstype($^O); @@ -64,14 +64,14 @@ fileparse_set_fstype($^O); =item C<fileparse> X<fileparse> - my($filename, $directories, $suffix) = fileparse($path); - my($filename, $directories, $suffix) = fileparse($path, @suffixes); - my $filename = fileparse($path, @suffixes); + my($filename, $dirs, $suffix) = fileparse($path); + my($filename, $dirs, $suffix) = fileparse($path, @suffixes); + my $filename = fileparse($path, @suffixes); -The C<fileparse()> routine divides a file path into its $directories, $filename +The C<fileparse()> routine divides a file path into its $dirs, $filename and (optionally) the filename $suffix. -$directories contains everything up to and including the last +$dirs contains everything up to and including the last directory separator in the $path including the volume (if applicable). The remainder of the $path is the $filename. @@ -95,7 +95,7 @@ If type is non-Unix (see L</fileparse_set_fstype>) then the pattern matching for suffix removal is performed case-insensitively, since those systems are not case-sensitive when opening existing files. -You are guaranteed that C<$directories . $filename . $suffix> will +You are guaranteed that C<$dirs . $filename . $suffix> will denote the same location as the original $path. =cut @@ -250,10 +250,10 @@ C<fileparse()>. Only on VMS (where there is no ambiguity between the file and directory portions of a path) and AmigaOS (possibly due to an implementation quirk in this module) does C<dirname()> work like C<fileparse($path)>, returning just the -$directories. +$dirs. # On VMS and AmigaOS - my $directories = dirname($path); + my $dirs = dirname($path); When using Unix or MSDOS syntax this emulates the C<dirname(1)> shell function which is subtly different from how C<fileparse()> works. It returns all but |