diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Miop/McastHello/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/Miop/McastHello/run_test.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/TAO/orbsvcs/tests/Miop/McastHello/run_test.pl b/TAO/orbsvcs/tests/Miop/McastHello/run_test.pl index 316cf14a560..ef87c284d2d 100755 --- a/TAO/orbsvcs/tests/Miop/McastHello/run_test.pl +++ b/TAO/orbsvcs/tests/Miop/McastHello/run_test.pl @@ -14,9 +14,12 @@ unlink $iorfile; unlink $iorfile_server2; $status = 0; -$SV1 = new PerlACE::Process ("server", "-o $iorfile"); -$SV2 = new PerlACE::Process ("server", "-o $iorfile_server2 "); -$CL = new PerlACE::Process ("client", " -k file://$iorfile "); +$server_conf = PerlACE::LocalFile ("server$PerlACE::svcconf_ext"); +$client_conf = PerlACE::LocalFile ("client$PerlACE::svcconf_ext"); + +$SV1 = new PerlACE::Process ("server", "-o $iorfile -ORBsvcconf $server_conf"); +$SV2 = new PerlACE::Process ("server", "-o $iorfile_server2 -ORBsvcconf $server_conf"); +$CL = new PerlACE::Process ("client", " -k file://$iorfile -ORBsvcconf $client_conf"); $SV1->Spawn (); $SV2->Spawn (); |