1 files changed, 5 insertions, 8 deletions
diff --git a/TAO/tests/RTCORBA/ORB_init/run_test.pl b/TAO/tests/RTCORBA/ORB_init/run_test.pl
index 3f20a5b7483..87716f406d6 100755
--- a/TAO/tests/RTCORBA/ORB_init/run_test.pl
+++ b/TAO/tests/RTCORBA/ORB_init/run_test.pl
@@ -6,18 +6,15 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "$ENV{ACE_ROOT}/bin";
-use PerlACE::Run_Test;
+use PerlACE::TestTarget;
 
 print STDERR "\n********** RTCORBA ORB_init Unit Test **********\n\n";
 
-if (PerlACE::is_vxworks_test()) {
-    $T = new PerlACE::ProcessVX ("ORB_init");
-}
-else {
-    $T = new PerlACE::Process ("ORB_init");
-}
+my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
+
+$SV = $server->CreateProcess ("ORB_init");
 
-$test = $T->SpawnWaitKill (60);
+$test = $SV->SpawnWaitKill ($server->ProcessStartWaitInterval());
 
 if ($test != 0) {
     print STDERR "ERROR: test returned $test\n";