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