diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-10-26 08:27:14 +0000 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-10-26 08:27:14 +0000 |
| commit | 67eb07ee5ac35a1522e267572cc58251c8c8cb4e (patch) | |
| tree | f45794315c807ba4ec4aef299292785c9268153c /TAO/DevGuideExamples/ValueTypes | |
| parent | 2a314a72a77e4d4e44f19c9e905b2dee280d87ae (diff) | |
| download | ATCD-67eb07ee5ac35a1522e267572cc58251c8c8cb4e.tar.gz | |
Sun Oct 26 08:26:00 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/DevGuideExamples/ValueTypes')
| -rw-r--r-- | TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl | 2 | ||||
| -rw-r--r-- | TAO/DevGuideExamples/ValueTypes/Messenger/run_test.pl | 2 | ||||
| -rw-r--r-- | TAO/DevGuideExamples/ValueTypes/Notify/run_test.pl | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl b/TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl index 8d1d243a536..8e9a4f88db0 100644 --- a/TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl +++ b/TAO/DevGuideExamples/ValueTypes/Bank/run_test.pl @@ -11,7 +11,7 @@ $ior = "server.ior"; $S = new PerlACE::Process("server"); $S->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 10) == -1) { +if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$ior>\n"; $S->Kill(); unlink $ior; diff --git a/TAO/DevGuideExamples/ValueTypes/Messenger/run_test.pl b/TAO/DevGuideExamples/ValueTypes/Messenger/run_test.pl index fa1a00ead50..279dcaf9d76 100644 --- a/TAO/DevGuideExamples/ValueTypes/Messenger/run_test.pl +++ b/TAO/DevGuideExamples/ValueTypes/Messenger/run_test.pl @@ -11,7 +11,7 @@ $ior = "server.ior"; $S = new PerlACE::Process("MessengerServer"); $S->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 10) == -1) { +if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$ior>\n"; $S->Kill(); unlink $ior; diff --git a/TAO/DevGuideExamples/ValueTypes/Notify/run_test.pl b/TAO/DevGuideExamples/ValueTypes/Notify/run_test.pl index 72cb86b91c0..2a7d6c95094 100644 --- a/TAO/DevGuideExamples/ValueTypes/Notify/run_test.pl +++ b/TAO/DevGuideExamples/ValueTypes/Notify/run_test.pl @@ -26,7 +26,7 @@ unlink $notifyior; $TS->Spawn (); -if (PerlACE::waitforfile_timed ($notifyior, 20) == -1) { +if (PerlACE::waitforfile_timed ($notifyior, $PerlACE::wait_interval_for_process_creation) == -1) { $TS->Kill (); exit 1; } |