- Make fixpaths work with perl4, patch from Andre Lucas

   <andre.lucas@dial.pipex.com>

1 files changed, 2 insertions, 1 deletions

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