diff options
| author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-02-26 03:41:16 +0000 |
|---|---|---|
| committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-02-26 03:41:16 +0000 |
| commit | a8d4b4c0053c7d2d23757bcc1587ba94cf0d95bf (patch) | |
| tree | dd2a3f926d12de627179469a645db1a0e2041a8e /bin/ACEutils.pm | |
| parent | 6455884d5140edcef96df228b06730f2ee4eed36 (diff) | |
| download | ATCD-a8d4b4c0053c7d2d23757bcc1587ba94cf0d95bf.tar.gz | |
ChangeLogTag:Sun Feb 25 19:40:11 2001 Carlos O'Ryan <coryan@uci.edu>
Diffstat (limited to 'bin/ACEutils.pm')
| -rw-r--r-- | bin/ACEutils.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/bin/ACEutils.pm b/bin/ACEutils.pm index 65aa31e0c71..b7e5a24217c 100644 --- a/bin/ACEutils.pm +++ b/bin/ACEutils.pm @@ -26,13 +26,15 @@ sub CheckForExeDir ### Check and remove, but don't actually use sub CheckForConfig { - for($i = 0; $i <= $#ARGV; $i++) { + for($i = 0; $i <= $#ARGV;) { if ($ARGV[$i] eq '-Config') { if (!defined $ARGV[$i + 1]) { print STDERR "You must pass a configuration with Config\n"; exit(1); } splice(@ARGV, $i, 2); + } else { + $i++; } } } |