1 files changed, 1 insertions, 11 deletions
diff --git a/TAO/tests/DynAny_Test/run_test.pl b/TAO/tests/DynAny_Test/run_test.pl
index a407b04ce1c..ae22a39216a 100755
--- a/TAO/tests/DynAny_Test/run_test.pl
+++ b/TAO/tests/DynAny_Test/run_test.pl
@@ -7,7 +7,6 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 
 use lib "../../../bin";
 require ACEutils;
-require Process;
 
 $type = "";
 
@@ -15,14 +14,7 @@ sub run_test
 {
   my $type = shift(@_);
 
-  $BT = Process::Create ($EXEPREFIX."basic_test".$EXE_EXT,
-			 " -t $type");
-
-  $test = $BT->TimedWait (10);
-  if ($test == -1) {
-    print STDERR "ERROR: test timedout\n";
-    $BT->Kill (); $BT->TimedWait (1);
-  }
+  system ($EXEPREFIX."basic_test -t $type");
 
 }
 
@@ -52,8 +44,6 @@ for ($i = 0; $i <= $#ARGV; $i++)
 @types = ("dynany", "dynarray", "dynenum", "dynsequence", "dynstruct",
           "dynunion");
 
-
-
 if ($type ne "")
 {
   run_test ($type);