diff options
| author | Norbert Pueschel <pueschel@imsdd.meb.uni-bonn.de> | 1997-01-22 00:13:54 +0100 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-01-25 15:58:00 +1200 |
| commit | a3156fc308049f548fff2dc156ffab6b3688fec8 (patch) | |
| tree | c0e5c977cb68ccebfc946a148e122b694d998e08 /lib/File/Basename.pm | |
| parent | e29f6e029e7eba9cda9e4a39a8f10eebff769325 (diff) | |
| download | perl-a3156fc308049f548fff2dc156ffab6b3688fec8.tar.gz | |
Bugfixes for AmigaOS
Subject: AmigaOS patch (removal)
p5p-msgid: <77724660@Armageddon.meb.uni-bonn.de>
private-msgid: <77724691@Armageddon.meb.uni-bonn.de>
Diffstat (limited to 'lib/File/Basename.pm')
| -rw-r--r-- | lib/File/Basename.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm index 7cbc6587aa..dd7cdcf82e 100644 --- a/lib/File/Basename.pm +++ b/lib/File/Basename.pm @@ -167,6 +167,7 @@ sub fileparse { } elsif ($fstype =~ /^AmigaOS/i) { ($dirpath,$basename) = ($fullname =~ /(.*[:\/])?(.*)/); + $dirpath = './' unless $dirpath; } elsif ($fstype !~ /^VMS/i) { # default to Unix ($dirpath,$basename) = ($fullname =~ m#^(.*/)?(.*)#); |