1 files changed, 5 insertions, 18 deletions
diff --git a/TAO/orbsvcs/tests/Logger/run_test.pl b/TAO/orbsvcs/tests/Logger/run_test.pl
index a5b2ad4343f..bf052ebdb58 100755
--- a/TAO/orbsvcs/tests/Logger/run_test.pl
+++ b/TAO/orbsvcs/tests/Logger/run_test.pl
@@ -14,15 +14,12 @@ require Process;
 # amount of delay between running the servers
 $sleeptime = 3;
 
-# error register
-$status = 0;
-
 # Starts the Logging Service
 sub service
 {
   my $args = "";
   my $prog = $EXEPREFIX."$tao_root/orbsvcs/Logging_Service/Logging_Service"
-      .$EXE_EXT;
+      .$Process::EXE_EXT;
   $SV = Process::Create ($prog, $args);
 }
 
@@ -30,9 +27,9 @@ sub service
 sub test
 {
   my $args = "";
-  my $prog = $EXEPREFIX."Logging_Test".$EXE_EXT;
+  my $prog = $EXEPREFIX."Logging_Test".$Process::EXE_EXT;
 
-  $CL = Process::Create ($prog, $args);
+  system ("$prog $args");
 }
 
 # Start the service
@@ -45,17 +42,7 @@ sleep $sleeptime;
 test ();
 
 # Give the client time to log and exit
-if ($CL->TimedWait (60) == -1) {
-  print STDERR "ERROR: client timedout\n";
-  $CL->Kill (); $CL->TimedWait (1);
-  $status = 1;
-}
+sleep 3;
 
 # Kill the service
-$SV->Terminate (); if ($SV->TimedWait (5) == -1) {
-  print STDERR "ERROR: couldn't shutdown the service nicely\n";
-  $status = 1;
-  $SV->Kill (); $SV->TimedWait (1);
-}
-
-exit $status;
+$SV->Kill ();