From 67eb07ee5ac35a1522e267572cc58251c8c8cb4e Mon Sep 17 00:00:00 2001
From: Johnny Willemsen <jwillemsen@remedy.nl>
Date: Sun, 26 Oct 2008 08:27:14 +0000
Subject: Sun Oct 26 08:26:00 UTC 2008  Johnny Willemsen 
 <jwillemsen@remedy.nl>

---
 .../Multithreading/GracefulShutdown/run_test.pl                | 10 +++++-----
 TAO/DevGuideExamples/Multithreading/Reactive/run_test.pl       |  2 +-
 .../Multithreading/ThreadPerConnection/run_test.pl             |  2 +-
 TAO/DevGuideExamples/Multithreading/ThreadPool/run_test.pl     |  2 +-
 4 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'TAO/DevGuideExamples/Multithreading')

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;
-- 
cgit v1.2.1