diff options
| author | Olaf Flebbe <o.flebbe@science-computing.de> | 2000-11-19 20:33:30 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-11-20 01:58:11 +0000 |
| commit | fa6a1c441b7e2c8c5e7ee1e3836a41fc8a364e89 (patch) | |
| tree | 551cec2742d1066daac417e04c5e1e00811b967e /lib/File/Basename.pm | |
| parent | 07d29b54c8a15c0fd1ebf8765665546568dfb928 (diff) | |
| download | perl-fa6a1c441b7e2c8c5e7ee1e3836a41fc8a364e89.tar.gz | |
[perl 7711: EPOC] updates
Message-ID: <25575.974658810@www23.gmx.net>
p4raw-id: //depot/perl@7758
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 243234403a..75996f2d08 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -176,7 +176,7 @@ sub fileparse { $dirpath ||= ''; # should always be defined } } - if ($fstype =~ /^MS(DOS|Win32)/i) { + if ($fstype =~ /^MS(DOS|Win32)|epoc/i) { ($dirpath,$basename) = ($fullname =~ /^((?:.*[:\\\/])?)(.*)/s); $dirpath .= '.\\' unless $dirpath =~ /[\\\/]\z/; } |