summaryrefslogtreecommitdiff
path: root/TAO/tests/RTCORBA/Server_Protocol/run_test.pl
diff options
context:
space:
mode:
authorsma <sma@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2006-03-27 11:37:53 +0000
committersma <sma@ae88bc3d-4319-0410-8dbf-d08b4c9d3795>2006-03-27 11:37:53 +0000
commit17784bbb9bb80cfbf564f2fb0fba115295d94f12 (patch)
tree4a9e32fd3eb649d7b387641396d1e349adf38b48 /TAO/tests/RTCORBA/Server_Protocol/run_test.pl
parent06b0f61affdace5ed61562369f77686c26fbc304 (diff)
downloadATCD-17784bbb9bb80cfbf564f2fb0fba115295d94f12.tar.gz
ChangeLogEntry: Wed Mar 22 16:18:00 UTC 2006 Simon Massey <sma@prismtech.com>
Diffstat (limited to 'TAO/tests/RTCORBA/Server_Protocol/run_test.pl')
-rwxr-xr-xTAO/tests/RTCORBA/Server_Protocol/run_test.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl
index 6e1cafa833b..8921a85c6ec 100755
--- a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl
+++ b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl
@@ -79,7 +79,7 @@ foreach $o (@server_opts) {
$SV->Spawn ();
- if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) {
+ if (PerlACE::waitforfile_timed ($iorfile, $PerlACE::wait_interval_for_process_creation) == -1) {
print STDERR "ERROR: cannot find IOR file <$iorfile>\n";
$SV->Kill (); $SV->TimedWait (1);
exit 1;