diff options
| -rwxr-xr-x | ACE/bin/auto_run_tests.pl | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/ACE/bin/auto_run_tests.pl b/ACE/bin/auto_run_tests.pl index 3e9b5887677..176ff4c34bb 100755 --- a/ACE/bin/auto_run_tests.pl +++ b/ACE/bin/auto_run_tests.pl @@ -35,20 +35,22 @@ sub run_command ($$) { my $command = shift; my $print_error = shift; my $result = 0; - if (system($command) and $print_error) { - my $error_message; + if (system($command)) { $result = $? >> 8; - if ($? == -1) { - $error_message = "failed to run: $!"; + if ($print_error) { + my $error_message; + if ($? == -1) { + $error_message = "failed to run: $!"; + } + elsif ($? & 127) { + $error_message = sprintf("exited on signal %d", ($? & 127)); + $error_message .= " and created coredump" if ($? & 128); + } + else { + $error_message = sprintf ("returned with status %d", $result); + } + print "Error: $test $error_message\n"; } - elsif ($? & 127) { - $error_message = sprintf("exited on signal %d", ($? & 127)); - $error_message .= " and created coredump" if ($? & 128); - } - else { - $error_message = sprintf ("returned with status %d", $result); - } - print "Error: $test $error_message\n"; } return $result; } |