diff options
author | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-07-29 23:34:43 +0000 |
---|---|---|
committer | nanbor <nanbor@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-07-29 23:34:43 +0000 |
commit | cbcaa9028d1033807ce74909261c056ee503d054 (patch) | |
tree | 71f7b25db223f1e83a9d94bf2aee472757828de5 /bin/run_all_win32.pl | |
parent | 5bcde818a1fe6c6174f2fba80e83df937a8d0675 (diff) | |
download | ATCD-cbcaa9028d1033807ce74909261c056ee503d054.tar.gz |
Untabified
Diffstat (limited to 'bin/run_all_win32.pl')
-rwxr-xr-x | bin/run_all_win32.pl | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/bin/run_all_win32.pl b/bin/run_all_win32.pl index 0825900008c..84021c3a8d9 100755 --- a/bin/run_all_win32.pl +++ b/bin/run_all_win32.pl @@ -132,9 +132,9 @@ foreach $i (@RUN_LIST) { print LOG "$CMD: =============================================\n"; print LOG "$CMD: running $program in $directory at ", $date, "\n"; local $subdir = - $ENV{ACE_ROOT} . '/'. $directory; + $ENV{ACE_ROOT} . '/'. $directory; chdir ($subdir) - || mydie "cannot chdir to $subdir"; + || mydie "cannot chdir to $subdir"; $run_error = 0; @@ -143,21 +143,21 @@ foreach $i (@RUN_LIST) { open (RUN, "$exe_log_name") || push @failures, "Can't open execution log file $exe_log_name\n"; while (<RUN>) { - print LOG $_; - if (m/^Error/ || m/FAILED/ || m/EXCEPTION/) { - $run_error = 1; - } + print LOG $_; + if (m/^Error/ || m/FAILED/ || m/EXCEPTION/) { + $run_error = 1; + } } if (close(RUN) == 0) { - push @failures, "Error when closing log file $program in $directory"; - next; + push @failures, "Error when closing log file $program in $directory"; + next; } $date = localtime; print LOG "$CMD: $program finished ", $date, "\n"; if ($run_error != 0) { - push @failures, - "errors detected while running $program in $directory"; + push @failures, + "errors detected while running $program in $directory"; } unlink ("$exe_log_name"); |