ChangeLogTag:Fri Aug 7 21:39:26 1998 Carlos O'Ryan <coryan@cs.wustl.edu>

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)