diff options
| author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1997-09-17 18:53:14 +0000 |
|---|---|---|
| committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1997-09-17 18:53:14 +0000 |
| commit | 930cb04545ef20e9d9fe2642cd40a87d1e6f908a (patch) | |
| tree | e51a2c3636fd597fe564f8bca525fe7b47ce7f13 /bin | |
| parent | ecfdaa73cc84388ec02fecef80b73fc80d151f74 (diff) | |
| download | ATCD-930cb04545ef20e9d9fe2642cd40a87d1e6f908a.tar.gz | |
ChangeLogTag:Wed Sep 17 13:51:25 1997 Carlos O'Ryan <coryan@macarena.cs.wustl.edu>
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/auto_compile | 3 |
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) { |