summaryrefslogtreecommitdiff
path: root/bin/auto_compile
diff options
context:
space:
mode:
authorcoryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1997-09-17 18:53:14 +0000
committercoryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>1997-09-17 18:53:14 +0000
commit930cb04545ef20e9d9fe2642cd40a87d1e6f908a (patch)
treee51a2c3636fd597fe564f8bca525fe7b47ce7f13 /bin/auto_compile
parentecfdaa73cc84388ec02fecef80b73fc80d151f74 (diff)
downloadATCD-930cb04545ef20e9d9fe2642cd40a87d1e6f908a.tar.gz
ChangeLogTag:Wed Sep 17 13:51:25 1997 Carlos O'Ryan <coryan@macarena.cs.wustl.edu>
Diffstat (limited to 'bin/auto_compile')
-rwxr-xr-xbin/auto_compile3
1 files changed, 3 insertions, 0 deletions
diff --git a/bin/auto_compile b/bin/auto_compile
index 245e1863f89..fe85285fb66 100755
--- a/bin/auto_compile
+++ b/bin/auto_compile
@@ -26,6 +26,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
# Taken from perlrun man page.
use File::Basename;
+use FileHandle;
require POSIX;
# This is the module we will checkout, someday someone could define a
@@ -90,6 +91,8 @@ $LOGFILE = $LOGDIR . '/' . POSIX::strftime("%b%d_%Y.log", localtime);
open(LOG, '>' . $LOGFILE)
|| mydie "cannot open log file";
+LOG->autoflush ();
+
# The following lines are useful when debugging the script or wrapper.
# print LOG $CHECKOUT, " ", $BUILD, " ", $LOGDIR, " ", $ADMIN, "\n";
#while (($key,$value) = each %ENV) {