diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Notify/Discarding/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/Notify/Discarding/run_test.pl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl b/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl index 38d7b456d1a..020551570b1 100755 --- a/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl +++ b/TAO/orbsvcs/tests/Notify/Discarding/run_test.pl @@ -24,7 +24,12 @@ my $stc = PerlACE::TestTarget::create_target (4) || die "Create target 4 failed\ my $ses = PerlACE::TestTarget::create_target (5) || die "Create target 5 failed\n"; my $sec = PerlACE::TestTarget::create_target (6) || die "Create target 6 failed\n"; -PerlACE::add_lib_path ('../lib'); +$ns->AddLibPath ('../lib'); +$nfs->AddLibPath ('../lib'); +$sts->AddLibPath ('../lib'); +$stc->AddLibPath ('../lib'); +$ses->AddLibPath ('../lib'); +$sec->AddLibPath ('../lib'); PerlACE::check_privilege_group(); @@ -66,7 +71,7 @@ foreach my $arg (@ARGV) { } } -$NS = $ns->CreateProcess ("../../../Naming_Service/Naming_Service", +$NS = $ns->CreateProcess ("../../../Naming_Service/Naming_Service", "-ORBEndpoint iiop://$host:$port ". "-o $ns_nsiorfile"); @@ -77,7 +82,7 @@ $NFS = $nfs->CreateProcess ("../../../Notify_Service/Notify_Service", "$nfs_nfsconffile"); $STS = $sts->CreateProcess ("Structured_Supplier", - "-ORBDebugLevel $debug_level ". + "-ORBDebugLevel $debug_level ". "-ORBInitRef NameService=iioploc://". "$host:$port/NameService ". "-o $sts_stsiorfile"); @@ -85,7 +90,7 @@ $STS = $sts->CreateProcess ("Structured_Supplier", $STC = $stc->CreateProcess ("Structured_Consumer"); $SES = $ses->CreateProcess ("Sequence_Supplier", - "-ORBDebugLevel $debug_level ". + "-ORBDebugLevel $debug_level ". "-ORBInitRef NameService=iioploc://". "$host:$port/NameService ". "-o $ses_sesiorfile"); |