diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2005-06-11 12:45:04 +0000 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2005-06-11 12:45:04 +0000 |
| commit | b0fe7bc7842f4aafdbdd81efd96e3b8fa2628c4c (patch) | |
| tree | 5ce032c3d2aaa90c0feb701467061ca5e68b17f6 /TAO/tests/RTCORBA | |
| parent | 6a9c5655afebaba6bb38c8a5728a09a09729e8a4 (diff) | |
| download | ATCD-b0fe7bc7842f4aafdbdd81efd96e3b8fa2628c4c.tar.gz | |
ChangeLogTag: Sat Jun 11 11:52:12 UTC 2005 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/RTCORBA')
| -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) { |