diff options
Diffstat (limited to 'gnu/usr.bin/perl/lib/File/Basename.pm')
| -rw-r--r-- | gnu/usr.bin/perl/lib/File/Basename.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gnu/usr.bin/perl/lib/File/Basename.pm b/gnu/usr.bin/perl/lib/File/Basename.pm index 58a740e56a1..887c7bae4a9 100644 --- a/gnu/usr.bin/perl/lib/File/Basename.pm +++ b/gnu/usr.bin/perl/lib/File/Basename.pm @@ -12,7 +12,8 @@ dirname - extract just the directory from a path use File::Basename; - ($name,$path,$suffix) = fileparse($fullname,@suffixlist) + ($name,$path,$suffix) = fileparse($fullname,@suffixlist); + $name = fileparse($fullname,@suffixlist); fileparse_set_fstype($os_string); $basename = basename($fullname,@suffixlist); $dirname = dirname($fullname); @@ -70,6 +71,8 @@ You are guaranteed that if you concatenate B<path>, B<name>, and B<suffix> together in that order, the result will denote the same file as the input file specification. +In scalar context, fileparse() returns only the B<name> part of the filename. + =back =head1 EXAMPLES @@ -142,7 +145,7 @@ our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase); require Exporter; @ISA = qw(Exporter); @EXPORT = qw(fileparse fileparse_set_fstype basename dirname); -$VERSION = "2.72"; +$VERSION = "2.73"; # fileparse_set_fstype() - specify OS-based rules used in future |