diff options
Diffstat (limited to 'lib/File/Basename.pm')
| -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) { |