diff options
Diffstat (limited to 'TAO')
-rwxr-xr-x | TAO/tests/IDLv4/annotations/run_test.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/TAO/tests/IDLv4/annotations/run_test.pl b/TAO/tests/IDLv4/annotations/run_test.pl index 1f58b600d6b..d4ec613fe41 100755 --- a/TAO/tests/IDLv4/annotations/run_test.pl +++ b/TAO/tests/IDLv4/annotations/run_test.pl @@ -9,7 +9,12 @@ use PerlACE::Run_Test; my $annotest_idl = new PerlACE::Process("annotest_idl", ""); print $annotest_idl->CommandLine (); -$annotest_idl->Spawn (); +my $pid = $annotest_idl->Spawn (); + +if ($pid == -1) { + exit 1 +} + my $annotest_idl_result = $annotest_idl->WaitKill (10); if ($annotest_idl_result > 0) { print STDERR "ERROR: annotest_idl returned $annotest_idl_result\n"; |