diff options
| author | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-12-14 18:45:34 +0000 |
|---|---|---|
| committer | brunsch <brunsch@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2000-12-14 18:45:34 +0000 |
| commit | 9d5225ea472ea6ec46bd77223b34191f7c6f389b (patch) | |
| tree | 6c04a00db80e7825ef212e8a7484ed5e4547c2ae /bin/ACEutils.pm | |
| parent | fd8cc097db5cc6ba5001bce1437ffe2af1d6051e (diff) | |
| download | ATCD-9d5225ea472ea6ec46bd77223b34191f7c6f389b.tar.gz | |
ChangeLogTag:Thu Dec 14 10:36:45 2000 Darrell Brunsch <brunsch@uci.edu>
Diffstat (limited to 'bin/ACEutils.pm')
| -rw-r--r-- | bin/ACEutils.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/bin/ACEutils.pm b/bin/ACEutils.pm index b8fe92a8455..65aa31e0c71 100644 --- a/bin/ACEutils.pm +++ b/bin/ACEutils.pm @@ -22,6 +22,21 @@ sub CheckForExeDir } } + +### Check and remove, but don't actually use +sub CheckForConfig +{ + for($i = 0; $i <= $#ARGV; $i++) { + 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); + } + } +} + sub checkForTarget { my($cwd) = shift; @@ -95,5 +110,6 @@ sub waitforfile_timed $sleeptime = 5; CheckForExeDir (); +CheckForConfig (); 1; |