From 5bb71ce4bfd4ec788b34a1e465b5fb10ec7e90b3 Mon Sep 17 00:00:00 2001
From: coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>
Date: Sat, 8 Aug 1998 03:11:08 +0000
Subject: ChangeLogTag:Fri Aug  7 21:39:26 1998  Carlos O'Ryan 
 <coryan@cs.wustl.edu>

---
 bin/auto_compile | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'bin')

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)
-- 
cgit v1.2.1