commit | 3ef692aa05a4b0d94a114be0826d32d0c8f67f1b | [log] [tgz] |
---|---|---|
author | Damien Miller <djm@mindrot.org> | Thu Apr 20 07:33:24 2000 +1000 |
committer | Damien Miller <djm@mindrot.org> | Thu Apr 20 07:33:24 2000 +1000 |
tree | 2e62c93addf75958d4aeb0f06483da7017fe99b0 | |
parent | 8bb73be04e3e38be582c4b3843c765aab74017c2 [diff] [blame] |
- Make fixpaths work with perl4, patch from Andre Lucas <andre.lucas@dial.pipex.com>
diff --git a/fixpaths b/fixpaths index e6f47c7..4badd98 100755 --- a/fixpaths +++ b/fixpaths
@@ -22,7 +22,8 @@ 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