diff options
| author | Robin Barker <rmb1@cise.npl.co.uk> | 1997-04-01 12:11:43 +0100 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-01 12:01:35 +1200 |
| commit | 2d6caab3c51efbf973371684428f83cc5475c01c (patch) | |
| tree | fc734f0ba2817d71cef4d35c373022c77ff14b1b /lib/File | |
| parent | eea074c3ea78f67828c62a0ffb638a436fab370e (diff) | |
| download | perl-2d6caab3c51efbf973371684428f83cc5475c01c.tar.gz | |
Eliminate warnings in File::Basename
./perl -w t/lib/basename.t
gives some warnings.
p5p-msgid: 11173.9704011111@tempest.cise.npl.co.uk
Diffstat (limited to 'lib/File')
| -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 0442aed8c5..3ceb10e6c1 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -163,7 +163,7 @@ sub fileparse { } } if ($fstype =~ /^MSDOS/i) { - ($dirpath,$basename) = ($fullname =~ /^(.*[:\\\/])?(.*)/); + ($dirpath,$basename) = ($fullname =~ /^((?:.*[:\\\/])?)(.*)/); $dirpath .= '.\\' unless $dirpath =~ /[\\\/]$/; } elsif ($fstype =~ /^MacOS/i) { |