1 files changed, 6 insertions, 10 deletions
diff --git a/TAO/tests/RTCORBA/Policies/run_test.pl b/TAO/tests/RTCORBA/Policies/run_test.pl
index 03c90ceff0b..9629a5c8a64 100755
--- a/TAO/tests/RTCORBA/Policies/run_test.pl
+++ b/TAO/tests/RTCORBA/Policies/run_test.pl
@@ -6,19 +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;
 
-if (PerlACE::is_vxworks_test()) {
-    $T = new PerlACE::ProcessVX ("Policies");
-}
-else {
-    $T = new PerlACE::Process ("Policies");
-}
+my $policies = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
 
-$test = $T->SpawnWaitKill (60);
+$SV = $policies->CreateProcess ("Policies");
+$status = $SV->SpawnWaitKill ($policies->ProcessStopWaitInterval ());
 
-if ($test != 0) {
-    print STDERR "ERROR: test returned $test\n";
+if ($status != 0) {
+    print STDERR "ERROR: test returns $status\n";
     exit 1;
 }