diff options
| author | Elvin Aslanov <rwp.primary@gmail.com> | 2022-08-30 11:05:41 +0400 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-08-30 09:33:59 -0600 |
| commit | a808d73686a9dab311eeb27f981eb4a61c43a108 (patch) | |
| tree | 628c38a69a654cfbaf0f02bfc6d9d6ac79bbf983 /lib | |
| parent | 7b88a34f3abd2662f6c449391320ac1f582b4043 (diff) | |
| download | perl-a808d73686a9dab311eeb27f981eb4a61c43a108.tar.gz | |
[doc] Update File::Basename synopsis
Add `my` on examples.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/File/Basename.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index 4b4fe95cfd..c3c611fbbc 100644 --- a/lib/File/Basename.pm +++ b/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); |