1 files changed, 15 insertions, 4 deletions
diff --git a/examples/Export/run_test.pl b/examples/Export/run_test.pl
index 7c84078d8ff..d88d4c72bea 100755
--- a/examples/Export/run_test.pl
+++ b/examples/Export/run_test.pl
@@ -6,12 +6,23 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 # -*- perl -*-
 
 use lib "../../bin";
-use PerlACE::Run_Test;
 
-$TEST = new PerlACE::Process ("test");
+require ACEutils;
+use Cwd;
 
-$status = $TEST->SpawnWaitKill (20);
+$cwd = getcwd();
+$test_exe = "$cwd$DIR_SEPARATOR"."test".$EXE_EXT;
 
-$status = 1 if ($status < 0);
+$TEST = Process::Create ($test_exe, "");
+
+$status = $TEST->TimedWait (20);
+if ($status == -1) {
+    print STDERR "ERROR: test timed out\n";
+    $status = 1;
+    $TEST->Kill (); $TEST->TimedWait (1);
+}
+elsif ($status > 0) {
+    print STDERR "ERROR: test failed\n";
+}
 
 exit $status;