From 3ef692aa05a4b0d94a114be0826d32d0c8f67f1b Mon Sep 17 00:00:00 2001
From: Damien Miller <djm@mindrot.org>
Date: Thu, 20 Apr 2000 07:33:24 +1000
Subject: [PATCH]  - Make fixpaths work with perl4, patch from Andre Lucas   
 <andre.lucas@dial.pipex.com>

---
 ChangeLog | 4 ++++
 fixpaths  | 3 ++-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 73d7db372..a32d02954 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 e6f47c713..4badd9886 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