ChangeLogTag: Fri Jan 24 11:42:57 2003 Boris S Kolpackov <boris@isis-server.isis.vanderbilt.edu>

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;