summaryrefslogtreecommitdiff
path: root/fixpaths
diff options
context:
space:
mode:
authorDamien Miller <djm@mindrot.org>2000-04-20 07:33:24 +1000
committerDamien Miller <djm@mindrot.org>2000-04-20 07:33:24 +1000
commit3ef692aa05a4b0d94a114be0826d32d0c8f67f1b (patch)
tree2e62c93addf75958d4aeb0f06483da7017fe99b0 /fixpaths
parent8bb73be04e3e38be582c4b3843c765aab74017c2 (diff)
- Make fixpaths work with perl4, patch from Andre Lucas
<andre.lucas@dial.pipex.com>
Diffstat (limited to 'fixpaths')
-rwxr-xr-xfixpaths3
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