ChangeLogTag: Mon Nov 5 13:08:29 2001 Chad Elliott <elliott_c@ociweb.com>

28 files changed, 73 insertions, 36 deletions

diff --git a/TAO/ChangeLogs/ChangeLog-02a b/TAO/ChangeLogs/ChangeLog-02a
index a0435e8f98d..f581d315ccf 100644
--- a/TAO/ChangeLogs/ChangeLog-02a
+++ b/TAO/ChangeLogs/ChangeLog-02a
@@ -1,3 +1,40 @@
+Mon Nov  5 13:08:29 2001  Chad Elliott  <elliott_c@ociweb.com>
+
+        * docs/tutorials/Quoter/AMI/Stock_i.h:
+        * docs/tutorials/Quoter/Naming_Service/Stock_i.h:
+        * docs/tutorials/Quoter/On_Demand_Activation/Stock_i.h:
+        * docs/tutorials/Quoter/Simple/Impl-Repo/Stock_i.h:
+        * docs/tutorials/Quoter/Simple/ImprovedServer/Stock_i.h:
+        * docs/tutorials/Quoter/Simple/Persistent/Stock_i.h:
+        * docs/tutorials/Quoter/Simple/Server/Stock_i.h:
+
+          Added a check to not use the std::string if on HP-UX and not
+          using the standard C++ library.
+
+        * examples/Load_Balancing/run_test.pl:
+        * examples/POA/DSI/run_test.pl:
+        * examples/Quoter/run_test.pl:
+        * examples/Simple/time/run_test.pl:
+        * examples/Simple/time-date/run_test.pl:
+        * orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl:
+        * orbsvcs/tests/AVStreams/Component_Switching/run_test.pl:
+        * orbsvcs/tests/AVStreams/Pluggable/run_test.pl:
+        * orbsvcs/tests/AVStreams/Simple_Three_Stage/run_test.pl:
+        * orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl:
+        * orbsvcs/tests/EC_Custom_Marshal/run_test.pl:
+        * orbsvcs/tests/EC_Throughput/run_test.pl:
+        * orbsvcs/tests/Event_Latency/run_test.pl:
+        * orbsvcs/tests/ImplRepo/locked/run_test.pl:
+        * orbsvcs/tests/Property/run_test.pl:
+        * orbsvcs/tests/Simple_Naming/run_test.pl:
+        * tests/DSI_Gateway/run_test.pl:
+        * tests/InterOp-Naming/run_test.pl:
+        * tests/Leader_Followers/run_test.pl:
+        * tests/Nested_Event_Loop/run_test.pl:
+
+          Increase wait time for startup of servers.  Slower machines have
+          problems running the tests with such stringent time constraints.
+
 Mon Nov  5 13:07:24 2001  Jeff Parsons <parsons@cs.wustl.edu>
 
         * tests/IDL_Test/typedef.idl:
diff --git a/TAO/docs/tutorials/Quoter/AMI/Stock_i.h b/TAO/docs/tutorials/Quoter/AMI/Stock_i.h
index f95fe3ed5bb..27163f9d2a0 100644
--- a/TAO/docs/tutorials/Quoter/AMI/Stock_i.h
+++ b/TAO/docs/tutorials/Quoter/AMI/Stock_i.h
@@ -22,7 +22,7 @@ public:
     throw (CORBA::SystemException);
 
 private:
-#if defined (HPUX)
+#if defined (HPUX) && (ACE_HAS_STANDARD_CPP_LIBRARY == 0)
   string symbol_;
   string full_name_;
 #else
diff --git a/TAO/docs/tutorials/Quoter/Naming_Service/Stock_i.h b/TAO/docs/tutorials/Quoter/Naming_Service/Stock_i.h
index c34157b3236..9c9607415a2 100644
--- a/TAO/docs/tutorials/Quoter/Naming_Service/Stock_i.h
+++ b/TAO/docs/tutorials/Quoter/Naming_Service/Stock_i.h
@@ -19,7 +19,7 @@ public:
   CORBA::Double price () throw (CORBA::SystemException);
 
 private:
-#if defined (HPUX)
+#if defined (HPUX) && (ACE_HAS_STANDARD_CPP_LIBRARY == 0)
   string symbol_;
   string full_name_;
 #else
diff --git a/TAO/docs/tutorials/Quoter/On_Demand_Activation/Stock_i.h b/TAO/docs/tutorials/Quoter/On_Demand_Activation/Stock_i.h
index f95fe3ed5bb..27163f9d2a0 100644
--- a/TAO/docs/tutorials/Quoter/On_Demand_Activation/Stock_i.h
+++ b/TAO/docs/tutorials/Quoter/On_Demand_Activation/Stock_i.h
@@ -22,7 +22,7 @@ public:
     throw (CORBA::SystemException);
 
 private:
-#if defined (HPUX)
+#if defined (HPUX) && (ACE_HAS_STANDARD_CPP_LIBRARY == 0)
   string symbol_;
   string full_name_;
 #else
diff --git a/TAO/docs/tutorials/Quoter/Simple/Impl-Repo/Stock_i.h b/TAO/docs/tutorials/Quoter/Simple/Impl-Repo/Stock_i.h
index 60bfb991c67..9c41dff6ee0 100644
--- a/TAO/docs/tutorials/Quoter/Simple/Impl-Repo/Stock_i.h
+++ b/TAO/docs/tutorials/Quoter/Simple/Impl-Repo/Stock_i.h
@@ -19,7 +19,7 @@ public:
   CORBA::Double price () throw (CORBA::SystemException);
 
 private:
-#if defined (HPUX)
+#if defined (HPUX) && (ACE_HAS_STANDARD_CPP_LIBRARY == 0)
   string symbol_;
   string full_name_;
 #else
diff --git a/TAO/docs/tutorials/Quoter/Simple/ImprovedServer/Stock_i.h b/TAO/docs/tutorials/Quoter/Simple/ImprovedServer/Stock_i.h
index 8733a8b4d73..9b6bc0727d8 100644
--- a/TAO/docs/tutorials/Quoter/Simple/ImprovedServer/Stock_i.h
+++ b/TAO/docs/tutorials/Quoter/Simple/ImprovedServer/Stock_i.h
@@ -29,7 +29,7 @@ public:
   CORBA::Double price () throw (CORBA::SystemException);
 
 private:
-#if defined (HPUX)
+#if defined (HPUX) && (ACE_HAS_STANDARD_CPP_LIBRARY == 0)
   string symbol_;
   string full_name_;
 #else
diff --git a/TAO/docs/tutorials/Quoter/Simple/Persistent/Stock_i.h b/TAO/docs/tutorials/Quoter/Simple/Persistent/Stock_i.h
index 60bfb991c67..9c41dff6ee0 100644
--- a/TAO/docs/tutorials/Quoter/Simple/Persistent/Stock_i.h
+++ b/TAO/docs/tutorials/Quoter/Simple/Persistent/Stock_i.h
@@ -19,7 +19,7 @@ public:
   CORBA::Double price () throw (CORBA::SystemException);
 
 private:
-#if defined (HPUX)
+#if defined (HPUX) && (ACE_HAS_STANDARD_CPP_LIBRARY == 0)
   string symbol_;
   string full_name_;
 #else
diff --git a/TAO/docs/tutorials/Quoter/Simple/Server/Stock_i.h b/TAO/docs/tutorials/Quoter/Simple/Server/Stock_i.h
index 41af82d5967..61889a69b63 100644
--- a/TAO/docs/tutorials/Quoter/Simple/Server/Stock_i.h
+++ b/TAO/docs/tutorials/Quoter/Simple/Server/Stock_i.h
@@ -19,7 +19,7 @@ public:
   CORBA::Double price () throw (CORBA::SystemException);
 
 private:
-#if defined (HPUX)
+#if defined (HPUX) && (ACE_HAS_STANDARD_CPP_LIBRARY == 0)
   string symbol_;
   string full_name_;
 #else
diff --git a/TAO/examples/Load_Balancing/run_test.pl b/TAO/examples/Load_Balancing/run_test.pl
index 724a1de22e1..024c348e1f9 100755
--- a/TAO/examples/Load_Balancing/run_test.pl
+++ b/TAO/examples/Load_Balancing/run_test.pl
@@ -13,7 +13,7 @@ use PerlACE::Run_Test;
 
 # Amount of delay (in seconds) between starting a server and a client
 # to allow proper server initialization.
-$sleeptime = 4;
+$sleeptime = 8;
 
 # File used to pass load balancing service ior to its clients.
 $iorfile = PerlACE::LocalFile("lb.ior");
diff --git a/TAO/examples/POA/DSI/run_test.pl b/TAO/examples/POA/DSI/run_test.pl
index d6f3b2ff7bb..c044fbd4fe1 100755
--- a/TAO/examples/POA/DSI/run_test.pl
+++ b/TAO/examples/POA/DSI/run_test.pl
@@ -18,7 +18,7 @@ $CL = new PerlACE::Process ("client", "-f $iorfile -x");
 
 $SV->Spawn ();
 
-if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) {
+if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) {
     print STDERR "ERROR: cannot find file <$iorfile>\n";
     $SV->Kill ();
     exit 1;
diff --git a/TAO/examples/Quoter/run_test.pl b/TAO/examples/Quoter/run_test.pl
index 38db087841c..143228896c5 100755
--- a/TAO/examples/Quoter/run_test.pl
+++ b/TAO/examples/Quoter/run_test.pl
@@ -19,7 +19,7 @@ $num_threads = 4;
 
 # amount of delay between running the servers
 
-$sleeptime = 2;
+$sleeptime = 8;
 
 # other variables
 
diff --git a/TAO/examples/Simple/time-date/run_test.pl b/TAO/examples/Simple/time-date/run_test.pl
index 93203c52e15..4915149ec32 100755
--- a/TAO/examples/Simple/time-date/run_test.pl
+++ b/TAO/examples/Simple/time-date/run_test.pl
@@ -20,7 +20,7 @@ $CL = new PerlACE::Process ("client", "-f $iorfile -ORBSvcConf $conf");
 
 $SV->Spawn ();
 
-if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) {
+if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) {
     print STDERR "ERROR: waiting for file <$iorfile>\n";
     $SV->Kill ();
     exit 1;
diff --git a/TAO/examples/Simple/time/run_test.pl b/TAO/examples/Simple/time/run_test.pl
index 2001e9c85e4..5bd82f64937 100755
--- a/TAO/examples/Simple/time/run_test.pl
+++ b/TAO/examples/Simple/time/run_test.pl
@@ -18,7 +18,7 @@ $CL = new PerlACE::Process ("client", "-f $iorfile -x");
 
 $SV->Spawn ();
 
-if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) {
+if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) {
     print STDERR "ERROR: Could not find file <$iorfile>\n";
     $SV->Kill ();
     exit 1;
diff --git a/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl
index 36239235c4e..a9958feadc3 100755
--- a/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Asynch_Three_Stage/run_test.pl
@@ -31,7 +31,7 @@ print STDERR "Starting Naming Service\n";
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($nsior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
     print STDERR "ERROR: cannot find naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
@@ -101,7 +101,7 @@ print STDERR "Starting Naming Service\n";
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($nsior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
     print STDERR "ERROR: cannot find naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
@@ -171,7 +171,7 @@ print STDERR "Starting Naming Service\n";
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($nsior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
     print STDERR "ERROR: cannot find naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
@@ -241,7 +241,7 @@ print STDERR "Starting Naming Service\n";
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($nsior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
     print STDERR "ERROR: cannot find naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
diff --git a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl
index 6eee4b845dd..4b221add586 100755
--- a/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Component_Switching/run_test.pl
@@ -38,7 +38,7 @@ print STDERR "Starting Naming Service\n";
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($nsior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
     print STDERR "ERROR: cannot find naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
diff --git a/TAO/orbsvcs/tests/AVStreams/Pluggable/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Pluggable/run_test.pl
index 233774f256d..dcb435870a5 100755
--- a/TAO/orbsvcs/tests/AVStreams/Pluggable/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Pluggable/run_test.pl
@@ -27,7 +27,7 @@ print STDERR "Starting Naming Service\n";
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($nsior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
     print STDERR "ERROR: cannot find naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
diff --git a/TAO/orbsvcs/tests/AVStreams/Simple_Three_Stage/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Simple_Three_Stage/run_test.pl
index 90885c21c69..b44101b5e19 100755
--- a/TAO/orbsvcs/tests/AVStreams/Simple_Three_Stage/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Simple_Three_Stage/run_test.pl
@@ -28,7 +28,7 @@ print STDERR "Starting Naming Service\n";
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($nsior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
     print STDERR "ERROR: cannot find naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
diff --git a/TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl b/TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl
index 3dbedced3e7..ed6c74d8dd9 100755
--- a/TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl
+++ b/TAO/orbsvcs/tests/AVStreams/Simple_Two_Stage/run_test.pl
@@ -26,7 +26,7 @@ print STDERR "Starting Naming Service\n";
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($nsior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
     print STDERR "ERROR: cannot find naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
diff --git a/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl b/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl
index e86186b36e8..7fa74534aad 100755
--- a/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl
+++ b/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl
@@ -11,7 +11,7 @@ use PerlACE::Run_Test;
 $port = PerlACE::uniqueid () + 10001;  # This can't be 10000 on Chorus 4.0
 
 $NS_ior = PerlACE::LocalFile ("NameService.ior");
-$sleeptime = 5;
+$sleeptime = 8;
 $status = 0;
 
 $NS = new PerlACE::Process ("../../Naming_Service/Naming_Service",
@@ -25,7 +25,7 @@ $S  = new PerlACE::Process ("ECM_Supplier",
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($NS_ior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($NS_ior, 10) == -1) {
     print STDERR "ERROR: waiting for naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
diff --git a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl
index 64a68ee20fc..46185c56ada 100755
--- a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl
+++ b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl
@@ -64,7 +64,7 @@ $S = new PerlACE::Process ("ECT_Supplier",
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($ns_ior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($ns_ior, 10) == -1) {
     print STDERR "ERROR: cannot find file <$ns_ior>\n";
     $NS->Kill (); 
     exit 1;
@@ -72,7 +72,7 @@ if (PerlACE::waitforfile_timed ($ns_ior, 5) == -1) {
 
 $ES->Spawn ();
 
-sleep 5;
+sleep 10;
 
 $C->Spawn ();
 $S->Spawn ();
diff --git a/TAO/orbsvcs/tests/Event_Latency/run_test.pl b/TAO/orbsvcs/tests/Event_Latency/run_test.pl
index 71a7436bb3e..ee3c858f981 100755
--- a/TAO/orbsvcs/tests/Event_Latency/run_test.pl
+++ b/TAO/orbsvcs/tests/Event_Latency/run_test.pl
@@ -9,7 +9,7 @@ use lib '../../../../bin';
 use PerlACE::Run_Test;
 
 $NS_ior = PerlACE::LocalFile ("NameService.ior");
-$sleeptime = 3;
+$sleeptime = 10;
 $status = 0;
 
 unlink $NS_ior;
@@ -24,7 +24,7 @@ $T  = new PerlACE::Process ("Event_Latency",
 
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($NS_ior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($NS_ior, 10) == -1) {
     print STDERR "ERROR: waiting for naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
diff --git a/TAO/orbsvcs/tests/ImplRepo/locked/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/locked/run_test.pl
index 7d086ade1cb..5f0170a9f10 100755
--- a/TAO/orbsvcs/tests/ImplRepo/locked/run_test.pl
+++ b/TAO/orbsvcs/tests/ImplRepo/locked/run_test.pl
@@ -36,7 +36,7 @@ unlink $pfile;
 $IMR->Arguments ("-o $imr_ior -d 0 -p $pfile");
 $IMR->Spawn ();
 
-if (PerlACE::waitforfile_timed ($imr_ior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($imr_ior, 10) == -1) {
     print STDERR "ERROR: waiting for $imr_ior\n";
     $IMR->Kill ();
     exit 1;
@@ -111,7 +111,7 @@ unlink $imr_ior;
 $IMR->Arguments ("-o $imr_ior -d 0 -l -p $pfile");
 $IMR->Spawn ();
 
-if (PerlACE::waitforfile_timed ($imr_ior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($imr_ior, 10) == -1) {
     print STDERR "ERROR: waiting for $imr_ior\n";
     $IMR->Kill ();
     exit 1;
diff --git a/TAO/orbsvcs/tests/Property/run_test.pl b/TAO/orbsvcs/tests/Property/run_test.pl
index d9c9e7835d6..b71c788c595 100755
--- a/TAO/orbsvcs/tests/Property/run_test.pl
+++ b/TAO/orbsvcs/tests/Property/run_test.pl
@@ -26,7 +26,7 @@ $CL = new PerlACE::Process ("client", "-ORBInitRef NameService=file://$nsior");
 print STDERR "Starting Naming_Service\n";
 $NS->Spawn ();
 
-if (PerlACE::waitforfile_timed ($nsior, 5) == -1) {
+if (PerlACE::waitforfile_timed ($nsior, 10) == -1) {
     print STDERR "ERROR: cannot find naming service IOR file\n";
     $NS->Kill (); 
     exit 1;
diff --git a/TAO/orbsvcs/tests/Simple_Naming/run_test.pl b/TAO/orbsvcs/tests/Simple_Naming/run_test.pl
index f2abfc17479..ed543a8b7c0 100755
--- a/TAO/orbsvcs/tests/Simple_Naming/run_test.pl
+++ b/TAO/orbsvcs/tests/Simple_Naming/run_test.pl
@@ -13,7 +13,7 @@ use PerlACE::Run_Test;
 
 # Amount of delay (in seconds) between starting a server and a client
 # to allow proper server initialization.
-$sleeptime = 8;
+$sleeptime = 10;
 
 $quiet = 0;
 
diff --git a/TAO/tests/DSI_Gateway/run_test.pl b/TAO/tests/DSI_Gateway/run_test.pl
index a455f66c991..7f38e959458 100755
--- a/TAO/tests/DSI_Gateway/run_test.pl
+++ b/TAO/tests/DSI_Gateway/run_test.pl
@@ -22,7 +22,7 @@ $CL = new PerlACE::Process ("client", "-k file://$gwfile -x -i 100");
 
 $SV->Spawn ();
 
-if (PerlACE::waitforfile_timed ($svfile, 5) == -1) {
+if (PerlACE::waitforfile_timed ($svfile, 10) == -1) {
     print STDERR "ERROR: cannot find file <$svfile>\n";
     $SV->Kill ();
     exit 1;
@@ -30,7 +30,7 @@ if (PerlACE::waitforfile_timed ($svfile, 5) == -1) {
 
 $GW->Spawn ();
 
-if (PerlACE::waitforfile_timed ($gwfile, 5) == -1) {
+if (PerlACE::waitforfile_timed ($gwfile, 10) == -1) {
     print STDERR "ERROR: cannot find file <$gwfile>\n";
     $SV->Kill ();
     $GW->Kill (); 
diff --git a/TAO/tests/InterOp-Naming/run_test.pl b/TAO/tests/InterOp-Naming/run_test.pl
index a76795c30eb..57ccfce2675 100755
--- a/TAO/tests/InterOp-Naming/run_test.pl
+++ b/TAO/tests/InterOp-Naming/run_test.pl
@@ -24,7 +24,7 @@ $SV = new PerlACE::Process ("INS_test_server",
 
 $SV->Spawn ();
 
-if (PerlACE::waitforfile_timed ($file, 5) == -1) {
+if (PerlACE::waitforfile_timed ($file, 10) == -1) {
     print STDERR "ERROR: cannot find file <$file>\n";
     $SV->Kill (); 
     exit 1;
diff --git a/TAO/tests/Leader_Followers/run_test.pl b/TAO/tests/Leader_Followers/run_test.pl
index a25f3dde5fd..32052e10a5d 100755
--- a/TAO/tests/Leader_Followers/run_test.pl
+++ b/TAO/tests/Leader_Followers/run_test.pl
@@ -116,7 +116,7 @@ if ($single == 1) {
 
     $SV->Spawn ();
 
-    if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) {
+    if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) {
         print STDERR "ERROR: cannot find file <$iorfile>\n";
         $SV->Kill (); 
         exit 1;
@@ -143,7 +143,7 @@ if ($multi == 1) {
 
     $SV->Spawn ();
 
-    if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) {
+    if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) {
         print STDERR "ERROR: cannot find file <$iorfile>\n";
         $SV->Kill (); 
         exit 1;
diff --git a/TAO/tests/Nested_Event_Loop/run_test.pl b/TAO/tests/Nested_Event_Loop/run_test.pl
index 457e4f7df29..e107686c9be 100755
--- a/TAO/tests/Nested_Event_Loop/run_test.pl
+++ b/TAO/tests/Nested_Event_Loop/run_test.pl
@@ -18,7 +18,7 @@ $CL = new PerlACE::Process ("client", "-k file://$iorfile -x");
 
 $SV->Spawn ();
 
-if (PerlACE::waitforfile_timed ($iorfile, 5) == -1) {
+if (PerlACE::waitforfile_timed ($iorfile, 10) == -1) {
     print STDERR "ERROR: cannot find file <$iorfile>\n";
     $SV->Kill (); $SV->TimedWait (1);
     exit 1;