1 files changed, 8 insertions, 8 deletions
diff --git a/TAO/tests/RTCORBA/Client_Propagated/run_test.pl b/TAO/tests/RTCORBA/Client_Propagated/run_test.pl
index 6364fd79116..921020eea73 100755
--- a/TAO/tests/RTCORBA/Client_Propagated/run_test.pl
+++ b/TAO/tests/RTCORBA/Client_Propagated/run_test.pl
@@ -26,26 +26,26 @@ $CL = new PerlACE::Process ("client", "-k file://$iorfile");
 
 $SV->Spawn ();
 
-if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) 
+if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1)
 {
     $server = $SV->TimedWait (1);
-    if ($server == 2) 
+    if ($server == 2)
     {
         # Mark as no longer running to avoid errors on exit.
         $SV->{RUNNING} = 0;
         exit $status;
-    } 
-    else 
+    }
+    else
     {
         print STDERR "ERROR: cannot find file <$iorfile>\n";
-        $SV->Kill (); 
+        $SV->Kill ();
         exit 1;
     }
 }
- 
+
 $client = $CL->SpawnWaitKill (60);
 
-if ($client != 0) 
+if ($client != 0)
 {
     print STDERR "ERROR: client returned $client\n";
     $status = 1;
@@ -53,7 +53,7 @@ if ($client != 0)
 
 $server = $SV->WaitKill (60);
 
-if ($server != 0) 
+if ($server != 0)
 {
     print STDERR "ERROR: server returned $server\n";
     $status = 1;