diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/File/Basename.pm | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/File/Basename.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/File/Basename.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Basename.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Basename.pm index 4b4fe95cfd..c3c611fbbc 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Basename.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/File/Basename.pm @@ -6,11 +6,11 @@ File::Basename - Parse file paths into directory, filename and suffix. use File::Basename; - ($name,$path,$suffix) = fileparse($fullname,@suffixlist); - $name = fileparse($fullname,@suffixlist); + my ($name, $path, $suffix) = fileparse($fullname, @suffixlist); + my $name = fileparse($fullname, @suffixlist); - $basename = basename($fullname,@suffixlist); - $dirname = dirname($fullname); + my $basename = basename($fullname, @suffixlist); + my $dirname = dirname($fullname); =head1 DESCRIPTION @@ -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.85"; +$VERSION = "2.86"; fileparse_set_fstype($^O); |