- Make fixpaths work with perl4, patch from Andre Lucas

   <andre.lucas@dial.pipex.com>

2 files changed, 6 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 73d7db37..a32d0295 100644
--- 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 e6f47c71..4badd988 100755
--- 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