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/Multithreading | |
| 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/Multithreading')
4 files changed, 8 insertions, 8 deletions
diff --git a/TAO/DevGuideExamples/Multithreading/GracefulShutdown/run_test.pl b/TAO/DevGuideExamples/Multithreading/GracefulShutdown/run_test.pl index dee883d20e1..7e96b25efeb 100644 --- a/TAO/DevGuideExamples/Multithreading/GracefulShutdown/run_test.pl +++ b/TAO/DevGuideExamples/Multithreading/GracefulShutdown/run_test.pl @@ -24,7 +24,7 @@ print STDOUT "Running MessengerServer...\n"; $S1 = new PerlACE::Process("MessengerServer", $server_args . " -x"); $S1->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 5) == -1) { +if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$ior>\n"; $S1->Kill(); unlink $ior; @@ -60,7 +60,7 @@ print STDOUT "Running MessengerServer...\n"; $S2 = new PerlACE::Process("MessengerServer", $server_args . " -p " . $iter); $S2->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 5) == -1) { +if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$ior>\n"; $S2->Kill(); unlink $ior; @@ -97,7 +97,7 @@ print STDOUT "Running MessengerServer...\n"; $S3 = new PerlACE::Process("MessengerServer", $server_args . " -t " . $sec); $S3->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 5) == -1) { +if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$ior>\n"; $S3->Kill(); unlink $ior; @@ -136,7 +136,7 @@ print STDOUT "Running MessengerServer...\n"; $S4 = new PerlACE::Process("MessengerServer", $server_args . " -r " . $sec); $S4->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 5) == -1) { +if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$ior>\n"; $S4->Kill(); unlink $ior; @@ -173,7 +173,7 @@ print STDOUT "Running MessengerServer...\n"; $S5 = new PerlACE::Process("MessengerServer", $server_args . " -c"); $S5->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 5) == -1) { +if (PerlACE::waitforfile_timed ($ior, $PerlACE::wait_interval_for_process_creation) == -1) { print STDERR "ERROR: cannot find file <$ior>\n"; $S5->Kill(); unlink $ior; diff --git a/TAO/DevGuideExamples/Multithreading/Reactive/run_test.pl b/TAO/DevGuideExamples/Multithreading/Reactive/run_test.pl index 49a0db0cc50..a91338e6aab 100644 --- a/TAO/DevGuideExamples/Multithreading/Reactive/run_test.pl +++ b/TAO/DevGuideExamples/Multithreading/Reactive/run_test.pl @@ -16,7 +16,7 @@ unlink $ior; $S = new PerlACE::Process("MessengerServer", "-ORBEndpoint iiop://localhost"); $S->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 5) == -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/Multithreading/ThreadPerConnection/run_test.pl b/TAO/DevGuideExamples/Multithreading/ThreadPerConnection/run_test.pl index 695244cafc7..95c22f3c9de 100644 --- a/TAO/DevGuideExamples/Multithreading/ThreadPerConnection/run_test.pl +++ b/TAO/DevGuideExamples/Multithreading/ThreadPerConnection/run_test.pl @@ -18,7 +18,7 @@ print STDOUT "Starting MessengerServer\n"; $S = new PerlACE::Process("MessengerServer", "-ORBSvcConf server.conf -ORBEndpoint iiop://localhost"); $S->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 5) == -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/Multithreading/ThreadPool/run_test.pl b/TAO/DevGuideExamples/Multithreading/ThreadPool/run_test.pl index ad711d0db7a..0bb35c7e33c 100644 --- a/TAO/DevGuideExamples/Multithreading/ThreadPool/run_test.pl +++ b/TAO/DevGuideExamples/Multithreading/ThreadPool/run_test.pl @@ -18,7 +18,7 @@ print STDOUT "Starting MessengerServer\n"; $S = new PerlACE::Process("MessengerServer", "-ORBEndpoint iiop://localhost"); $S->Spawn(); -if (PerlACE::waitforfile_timed ($ior, 5) == -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; |