diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2005-02-11 09:18:16 +0000 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2005-02-11 09:18:16 +0000 |
| commit | 5b7d7d5daeddc4e6be164bc947fd7e0d7cdbd929 (patch) | |
| tree | 53f81c66a787f4250f9dfa945065d92a8f25b335 /TAO/orbsvcs/tests/Notify/Lanes | |
| parent | 3f56e2a4ac8666ac71b205e1b832118d1156c86d (diff) | |
| download | ATCD-5b7d7d5daeddc4e6be164bc947fd7e0d7cdbd929.tar.gz | |
ChangeLogTag: Fri Feb 11 08:54:12 UTC 2005 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/orbsvcs/tests/Notify/Lanes')
| -rwxr-xr-x | TAO/orbsvcs/tests/Notify/Lanes/run_test.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/TAO/orbsvcs/tests/Notify/Lanes/run_test.pl b/TAO/orbsvcs/tests/Notify/Lanes/run_test.pl index 7d47e3d10ad..f484f45ddbe 100755 --- a/TAO/orbsvcs/tests/Notify/Lanes/run_test.pl +++ b/TAO/orbsvcs/tests/Notify/Lanes/run_test.pl @@ -37,7 +37,9 @@ $Consumer_Args = "-ORBInitRef NameService=file://$naming_ior -IORinput file://$s #$Consumer_Args = "-ORBInitRef NameService=file://$naming_ior -IORinput file://$supplier_ior -ORBSvcConf $consumer_conf -ORBDebugLevel 1"; unlink $naming_ior; -$Naming->Spawn (); +if ($Naming->Spawn () == -1) { + exit 1; +} if (PerlACE::waitforfile_timed ($naming_ior, $startup_timeout) == -1) { print STDERR "ERROR: waiting for the naming service to start\n"; |