diff options
Diffstat (limited to 'TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl index d8bde72c0f5..bb24ced8125 100755 --- a/TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl +++ b/TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl @@ -61,7 +61,9 @@ $NS = new PerlACE::Process ("../../../Naming_Service/Naming_Service", "-o $nsior print STDERR "Starting Naming Service\n"; -$NS->Spawn (); +if ($NS->Spawn () == -1) { + exit 1; +} if (PerlACE::waitforfile_timed ($nsior, 100) == -1) { |