diff options
Diffstat (limited to 'TAO/tests/RTCORBA/Linear_Priority/run_test.pl')
| -rwxr-xr-x | TAO/tests/RTCORBA/Linear_Priority/run_test.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/TAO/tests/RTCORBA/Linear_Priority/run_test.pl b/TAO/tests/RTCORBA/Linear_Priority/run_test.pl index b5aa193758d..b5b844fcfa7 100755 --- a/TAO/tests/RTCORBA/Linear_Priority/run_test.pl +++ b/TAO/tests/RTCORBA/Linear_Priority/run_test.pl @@ -84,7 +84,9 @@ sub run_server else { $SV = new PerlACE::Process ("server", @_); } - $SV->Spawn (); + if ($SV->Spawn () == -1) { + exit 1; + } if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) { |