diff options
author | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-11-05 19:15:33 +0000 |
---|---|---|
committer | elliott_c <elliott_c@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2001-11-05 19:15:33 +0000 |
commit | 45e6ca7645269bcdfe0db82ebfb2ead2670e63e8 (patch) | |
tree | cc4af75ee3ce28d1c32f574bf5eae60dc2d1a7b1 /TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl | |
parent | 51e453e0e87c7e55327c2e5c0ed5fa7b05209ab0 (diff) | |
download | ATCD-45e6ca7645269bcdfe0db82ebfb2ead2670e63e8.tar.gz |
ChangeLogTag: Mon Nov 5 13:08:29 2001 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl | 4 |
1 files changed, 2 insertions, 2 deletions
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; |