diff options
author | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-04-10 07:18:49 +0000 |
---|---|---|
committer | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-04-10 07:18:49 +0000 |
commit | 32bc3884ee372f2dcc01305982f00299b1aa2ab4 (patch) | |
tree | ab93f030243bffe797a8d61f8aa729dfc76efb5c /bin/PerlACE | |
parent | 1e85639d62e7ef5313cfbedfd73a35593b93eb88 (diff) | |
download | ATCD-32bc3884ee372f2dcc01305982f00299b1aa2ab4.tar.gz |
ChangeLogTag:Tue Apr 10 02:14:55 2001 Nanbor Wang <nanbor@cs.wustl.edu>
Diffstat (limited to 'bin/PerlACE')
-rw-r--r-- | bin/PerlACE/Run_Test.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/bin/PerlACE/Run_Test.pm b/bin/PerlACE/Run_Test.pm index ea1a0fa0727..e31cbdfc86a 100644 --- a/bin/PerlACE/Run_Test.pm +++ b/bin/PerlACE/Run_Test.pm @@ -73,6 +73,22 @@ sub waitforfile_timed return -1; } +sub check_n_cleanup_files +{ + my $file = shift; + my @flist = glob ($file); + + my $cntr = 0; + my $nfile = scalar(@flist); + + if ($nfile != 0) { + for (; $cntr < $nfile; $cntr++) { + print STDERR "ERROR: File <$flist[$cntr]> exists but should be cleaned up\n"; + } + unlink @flist; + } +} + $sleeptime = 5; 1; |