summaryrefslogtreecommitdiff
path: root/CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl
diff options
context:
space:
mode:
authormsmit <msmit@remedy.nl>2009-12-11 09:42:41 +0000
committermsmit <msmit@remedy.nl>2009-12-11 09:42:41 +0000
commit67b77ed58e730f9f7879680992de4a4b7e490da7 (patch)
tree689f1d04875526f89e7bb1e72abc0109b84bf7e6 /CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl
parentafc9be4530b0c3e07f8f811ad42d691d89533232 (diff)
downloadATCD-67b77ed58e730f9f7879680992de4a4b7e490da7.tar.gz
Fri Dec 11 09:44:14 UTC 2009 Marcel Smit <msmit@remedy.nl>
* connectors/dds4ccm/examples/Hello/descriptors/run_1_to_5.pl: * connectors/dds4ccm/examples/Hello/descriptors/run_5_to_1.pl: * connectors/dds4ccm/examples/Hello/descriptors/run_5_to_5.pl: * connectors/dds4ccm/examples/Hello/descriptors/run_receiver.pl: * connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl: * connectors/dds4ccm/examples/Quoter/descriptors/run_test.pl: * connectors/dds4ccm/examples/Shapes/descriptors/run_test.pl: Resolved fuzz errors/warnings
Diffstat (limited to 'CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl')
-rwxr-xr-xCIAO/connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl7
1 files changed, 4 insertions, 3 deletions
diff --git a/CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl b/CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl
index 14b8cd0008d..872e348a4c6 100755
--- a/CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl
+++ b/CIAO/connectors/dds4ccm/examples/Hello/descriptors/run_sender.pl
@@ -44,23 +44,24 @@ $tg_executor = 0;
$status = 0;
$cdp_file = "SenderOnly.cdp";
-PerlACE::add_lib_path ('../lib');
$ENV{"DANCE_TRACE_ENABLE"} = 0;
$ENV{"CIAO_TRACE_ENABLE"} = 0;
-
sub create_targets {
# naming service
$tg_naming = PerlACE::TestTarget::create_target (1) || die "Create target for ns failed\n";
-
+ $tg_naming->AddLibPath ('../lib');
# daemon
for ($i = 0; $i < $nr_daemon; ++$i) {
$tg_daemons[$i] = PerlACE::TestTarget::create_target ($i+1) || die "Create target for deamon $i failed\n";
+ $tg_daemons[$i]->AddLibPath ('../lib');
}
# execution manager
$tg_exe_man = PerlACE::TestTarget::create_target (1) || die "Create target for EM failed\n";
+ $tg_exe_man->AddLibPath ('../lib');
# executor (plan_launcher)
$tg_executor = PerlACE::TestTarget::create_target (1) || die "Create target for executor failed\n";
+ $tg_executor->AddLibPath ('../lib');
}
sub init_ior_files {