diff options
| author | Damien Miller <djm@mindrot.org> | 2000-04-20 07:33:24 +1000 |
|---|---|---|
| committer | Damien Miller <djm@mindrot.org> | 2000-04-20 07:33:24 +1000 |
| commit | 3ef692aa05a4b0d94a114be0826d32d0c8f67f1b (patch) | |
| tree | 2e62c93addf75958d4aeb0f06483da7017fe99b0 /fixpaths | |
| parent | 8bb73be04e3e38be582c4b3843c765aab74017c2 (diff) | |
- Make fixpaths work with perl4, patch from Andre Lucas
<andre.lucas@dial.pipex.com>
Diffstat (limited to 'fixpaths')
| -rwxr-xr-x | fixpaths | 3 |
1 files changed, 2 insertions, 1 deletions
| @@ -22,7 +22,8 @@ while ($_=$ARGV[0], /^-/) { | |||
| 22 | die ("$usage$0: error in command line arguments.\n"); | 22 | die ("$usage$0: error in command line arguments.\n"); |
| 23 | } | 23 | } |
| 24 | } else { | 24 | } else { |
| 25 | die ("$usage$0: unknown option '-".$ARGV[0][1]."'\n"); | 25 | @cmd = split(//, $ARGV[0]); $opt = $cmd[1]; |
| 26 | die ("$usage$0: unknown option '-$opt'\n"); | ||
| 26 | } | 27 | } |
| 27 | } # while parsing arguments | 28 | } # while parsing arguments |
| 28 | 29 | ||