1 files changed, 2 insertions, 7 deletions
diff --git a/TAO/examples/POA/NewPOA/run_test.pl b/TAO/examples/POA/NewPOA/run_test.pl
index ab550847c8d..58004c58b48 100755
--- a/TAO/examples/POA/NewPOA/run_test.pl
+++ b/TAO/examples/POA/NewPOA/run_test.pl
@@ -8,10 +8,5 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 unshift @INC, '../../../../bin';
 require ACEutils;
 
-$TEST  = Process::Create ($EXEPREFIX."NewPOA$EXE_EXT", "");
-if ($TEST->TimedWait (60) == -1) {
-  print STDERR "ERROR: test timedout\n";
-  $TEST->Kill (); $TEST->TimedWait (1);
-  exit 1;
-}
-exit 0;
+$status  = system ($EXEPREFIX."NewPOA$Process::EXE_EXT");
+exit $status;