1 files changed, 4 insertions, 2 deletions
diff --git a/TAO/tests/Bug_2809_Regression/run_test.pl b/TAO/tests/Bug_2809_Regression/run_test.pl
index df7ee0e2a80..9db239743a1 100755
--- a/TAO/tests/Bug_2809_Regression/run_test.pl
+++ b/TAO/tests/Bug_2809_Regression/run_test.pl
@@ -17,9 +17,11 @@ foreach $i (@ARGV) {
     }
 }
 
-$SV = new PerlACE::Process ("server", "");
+my $class = (PerlACE::is_vxworks_test() ? 'PerlACE::ProcessVX' :
+                                          'PerlACE::Process');
+$T = new $class ("server");
 
-$server = $SV->SpawnWaitKill (30);
+$server = $T->SpawnWaitKill ($PerlACE::wait_interval_for_process_creation);
 
 if ($server != 0) {
     print STDERR "ERROR: server returned $server\n";