From dca2f908abafc4e62853fa0bfc936b1f8fa17d8f Mon Sep 17 00:00:00 2001
From: Johnny Willemsen <jwillemsen@remedy.nl>
Date: Mon, 3 Apr 2006 12:46:48 +0000
Subject: ChangeLogTag: Mon Apr  3 12:40:12 2006  Johnny Willemsen 
 <jwillemsen@remedy.nl>

---
 TAO/tests/Hello/run_test.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/TAO/tests/Hello/run_test.pl b/TAO/tests/Hello/run_test.pl
index 5d02e3606f1..cb77b93fe3e 100755
--- a/TAO/tests/Hello/run_test.pl
+++ b/TAO/tests/Hello/run_test.pl
@@ -21,7 +21,12 @@ else {
 }
 $CL = new PerlACE::Process ("client", " -k file://$iorfile");
     
-$SV->Spawn ();
+$server = $SV->Spawn ();
+
+if ($server != 0) {
+    print STDERR "ERROR: server returned $server\n";
+    exit 1;
+}
 
 if (PerlACE::waitforfile_timed ($iorfile,
                         $PerlACE::wait_interval_for_process_creation) == -1) {
-- 
cgit v1.2.1