diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Security')
-rwxr-xr-x | TAO/orbsvcs/tests/Security/Crash_Test/run_test.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/TAO/orbsvcs/tests/Security/Crash_Test/run_test.pl b/TAO/orbsvcs/tests/Security/Crash_Test/run_test.pl index 152e96d46fa..a4810f3ec6b 100755 --- a/TAO/orbsvcs/tests/Security/Crash_Test/run_test.pl +++ b/TAO/orbsvcs/tests/Security/Crash_Test/run_test.pl @@ -63,6 +63,8 @@ while($status == 0 && $elapsed < $max_running_time) $SV->Kill (); $SV->TimedWait (5); + unlink $iorfile; + $SV->Spawn (); if (PerlACE::waitforfile_timed ($iorfile, $server_startup_wait_time) == -1) @@ -80,6 +82,8 @@ while($status == 0 && $elapsed < $max_running_time) $client3 = $CL3->WaitKill ($client_wait_time * 2); $server = $SV->WaitKill (5); # should be down already + unlink $iorfile; + if ($client1) { print STDERR "ERROR: client #1 returned $client1\n"; @@ -107,6 +111,4 @@ while($status == 0 && $elapsed < $max_running_time) $elapsed = time() - $start_time; } -unlink $iorfile; - exit $status; |