diff options
| author | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-07-14 03:16:17 +0000 |
|---|---|---|
| committer | coryan <coryan@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-07-14 03:16:17 +0000 |
| commit | 2b9f20f5f9e05709b40b4eecf7c33622e87e2eea (patch) | |
| tree | 527e84252c26ac054e1aac3ca38ff3fd2a0048de /bin/ACEutils.pm | |
| parent | 563cf113f97f1e8464e13b2c1587ba19062c3e90 (diff) | |
| download | ATCD-2b9f20f5f9e05709b40b4eecf7c33622e87e2eea.tar.gz | |
ChangeLogTag:Tue Jul 13 22:16:17 1999 Carlos O'Ryan <coryan@cs.wustl.edu>
Diffstat (limited to 'bin/ACEutils.pm')
| -rw-r--r-- | bin/ACEutils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/ACEutils.pm b/bin/ACEutils.pm index 50bb743f15f..dd6474e7a0f 100644 --- a/bin/ACEutils.pm +++ b/bin/ACEutils.pm @@ -36,7 +36,7 @@ sub uniqueid sub waitforfile { local($file) = @_; - sleep 1 while (!(-e $file)); + sleep 1 while (!(-e $file && -s $file)); } sub waitforfile_timed @@ -44,7 +44,7 @@ sub waitforfile_timed my $file = shift; my $maxtime = shift; while ($maxtime-- != 0) { - if (-e $file) { + if (-e $file && -s $file) { return 0; } sleep 1; |