diff options
| -rw-r--r-- | lib/File/Basename.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index ed59e9a7a0..3b0685f166 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -19,7 +19,7 @@ dirname - extract just the directory from a path ($name,$path,$suffix) = fileparse("lib/File/Basename.pm",qr{\.pm}); fileparse_set_fstype("VMS"); - $basename = basename("lib/File/Basename.pm",qr{\.pm}); + $basename = basename("lib/File/Basename.pm",".pm"); $dirname = dirname("lib/File/Basename.pm"); =head1 DESCRIPTION |