From: Norbert Pueschel <pueschel@imsdd.meb.uni-bonn.de>
Date: Tue, 21 Jan 1997 23:13:54 +0000 (+0100)
Subject: Bugfixes for AmigaOS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a3156fc308049f548fff2dc156ffab6b3688fec8;p=p5sagit%2Fp5-mst-13.2.git

Bugfixes for AmigaOS

Subject: AmigaOS patch (removal)

p5p-msgid: <77724660@Armageddon.meb.uni-bonn.de>
private-msgid: <77724691@Armageddon.meb.uni-bonn.de>
---

diff --git a/hints/amigaos.sh b/hints/amigaos.sh
index 8328c8a..6c00d76 100644
--- a/hints/amigaos.sh
+++ b/hints/amigaos.sh
@@ -9,10 +9,6 @@ firstmakefile='GNUmakefile'
 ccflags='-DAMIGAOS -mstackextend'
 optimize='-O2 -fomit-frame-pointer'
 
-cppminus=' '
-cpprun='cpp'
-cppstdin='cpp'
-
 usenm='y'
 usemymalloc='n'
 usevfork='true'
diff --git a/lib/File/Basename.pm b/lib/File/Basename.pm
index 7cbc658..dd7cdcf 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#^(.*/)?(.*)#);