Skip to content

Commit a808d73

Browse files
rwp0khwilliamson
authored andcommitted
[doc] Update File::Basename synopsis
Add `my` on examples.
1 parent 7b88a34 commit a808d73

File tree

1 file changed

+5
-5
lines changed

1 file changed

+5
-5
lines changed

lib/File/Basename.pm

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -6,11 +6,11 @@ File::Basename - Parse file paths into directory, filename and suffix.
66
77
use File::Basename;
88
9-
($name,$path,$suffix) = fileparse($fullname,@suffixlist);
10-
$name = fileparse($fullname,@suffixlist);
9+
my ($name, $path, $suffix) = fileparse($fullname, @suffixlist);
10+
my $name = fileparse($fullname, @suffixlist);
1111
12-
$basename = basename($fullname,@suffixlist);
13-
$dirname = dirname($fullname);
12+
my $basename = basename($fullname, @suffixlist);
13+
my $dirname = dirname($fullname);
1414
1515
1616
=head1 DESCRIPTION
@@ -54,7 +54,7 @@ our(@ISA, @EXPORT, $VERSION, $Fileparse_fstype, $Fileparse_igncase);
5454
require Exporter;
5555
@ISA = qw(Exporter);
5656
@EXPORT = qw(fileparse fileparse_set_fstype basename dirname);
57-
$VERSION = "2.85";
57+
$VERSION = "2.86";
5858

5959
fileparse_set_fstype($^O);
6060

0 commit comments

Comments
 (0)