- Make fixpaths work with perl4, patch from Andre Lucas

   <andre.lucas@dial.pipex.com>

diff --git a/ChangeLog b/ChangeLog
index 73d7db3723d0f91f14d7c1080ee467297f5a2c0c..a32d02954ffd9904226649ed243bfb4193a3a88f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+20000420
+ - Make fixpaths work with perl4, patch from Andre Lucas 
+   <andre.lucas@dial.pipex.com>
+
 20000419
  - OpenBSD CVS updates
    [channels.c]

diff --git a/fixpaths b/fixpaths
index e6f47c713643599c158d866fc6001efed75038fb..4badd98866616ceee9cdb09651dc0670bc5b3ba1 100755 (executable)
--- a/fixpaths
+++ b/fixpaths
@@ -22,7 +22,8 @@ while ($_=$ARGV[0], /^-/) {
       die ("$usage$0: error in command line arguments.\n");
     }
   } else {
-    die ("$usage$0: unknown option '-".$ARGV[0][1]."'\n");
+    @cmd = split(//, $ARGV[0]); $opt = $cmd[1];
+    die ("$usage$0: unknown option '-$opt'\n");
   }
 } # while parsing arguments