diff options
| author |   millert <millert@openbsd.org> | 2004-08-09 18:08:51 +0000 |
|---|---|---|
| committer | millert <millert@openbsd.org> | 2004-08-09 18:08:51 +0000 |
| commit | 04bf48b9e2bc58227ac0da17f40089433d4f734e (patch) | |
| tree | 6e41222006184ca3520a8e24bdf48dbc57cea896 /gnu/usr.bin/perl/lib/File/Basename.pm | |
| parent | move to 3.6-beta (diff) | |
| download | wireguard-openbsd-04bf48b9e2bc58227ac0da17f40089433d4f734e.tar.xz wireguard-openbsd-04bf48b9e2bc58227ac0da17f40089433d4f734e.zip | |
merge 5.8.5 into HEAD
remove now-unused files
crank libperl shared library major number
update Makefile.bsd-wrapper
tweak openbsd hints file for arm and m68k
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 |