diff options
author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-18 14:15:33 +0000 |
---|---|---|
committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1998-08-18 14:15:33 +0000 |
commit | 1482455ee79a5f82607cecaa3e13eba202e2d2cb (patch) | |
tree | 1000c3c3c06a8523705f98e8ce85796efa301a36 | |
parent | 009f20c559307f7f13dc767622707e368423c5a2 (diff) | |
download | ATCD-1482455ee79a5f82607cecaa3e13eba202e2d2cb.tar.gz |
Added some fixes to the error reporting code.
-rwxr-xr-x | bin/auto_compile | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/bin/auto_compile b/bin/auto_compile index 4c10ab06934..1fcc330fdf6 100755 --- a/bin/auto_compile +++ b/bin/auto_compile @@ -84,7 +84,11 @@ sub mydie { || 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"; + local $m; + foreach $m (@msg) { + print MAIL $m, "\n"; + } print MAIL "\nPlease check log files for more info\n"; close(MAIL) || die "cannot close email pipe on error: $msg\n"; |