diff options
author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-08 03:11:08 +0000 |
---|---|---|
committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-08 03:11:08 +0000 |
commit | 5bb71ce4bfd4ec788b34a1e465b5fb10ec7e90b3 (patch) | |
tree | 35985dabecb288b528a95873d3fa3679bd07dd9a /bin | |
parent | c11ce37933a18f6f233b0c12b0674910832544f4 (diff) | |
download | ATCD-5bb71ce4bfd4ec788b34a1e465b5fb10ec7e90b3.tar.gz |
ChangeLogTag:Fri Aug 7 21:39:26 1998 Carlos O'Ryan <coryan@cs.wustl.edu>
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/auto_compile | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/bin/auto_compile b/bin/auto_compile index de070bb0d2a..7ed8583984f 100755 --- a/bin/auto_compile +++ b/bin/auto_compile @@ -39,6 +39,7 @@ $MODULE='ACE_wrappers'; ('ace', 'netsvcs', 'tests', + 'apps/gperf', 'TAO'); # This are the pairs "sub-directory , script" we run; the separator @@ -77,12 +78,12 @@ $ADMIN = $ARGV[3]; # to ADMIN. sub mydie { - local $msg = shift; + local @msg = @_; open(MAIL, "|mail $ADMIN") || die "cannot open email pipe on error: $msg\n"; print MAIL 'The following error is brought to you by: ', "\n"; print MAIL $CMD, ' [', $REVISION, "] for $BUILD on $CHECKOUT\n"; - print MAIL "\n", $msg, "\n"; + print MAIL "\n", @msg, "\n"; print MAIL "\nPlease check log files for more info\n"; close(MAIL) || die "cannot close email pipe on error: $msg\n"; @@ -223,7 +224,7 @@ foreach $i (@RUN_LIST) { } if ($#failures >= 0) { - mydie join ("\n", @failures); + mydie @failures; } close(LOG) |