summaryrefslogtreecommitdiff
path: root/flat/CIAO/examples/Hello/descriptors/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'flat/CIAO/examples/Hello/descriptors/run_test.pl')
-rwxr-xr-xflat/CIAO/examples/Hello/descriptors/run_test.pl6
1 files changed, 4 insertions, 2 deletions
diff --git a/flat/CIAO/examples/Hello/descriptors/run_test.pl b/flat/CIAO/examples/Hello/descriptors/run_test.pl
index d19d255f639..02b7e48d8d6 100755
--- a/flat/CIAO/examples/Hello/descriptors/run_test.pl
+++ b/flat/CIAO/examples/Hello/descriptors/run_test.pl
@@ -72,17 +72,19 @@ sub run_node_daemons {
$port = $ports[$i];
$nodename = $nodenames[$i];
$iiop = "iiop://localhost:$port";
- $node_app = "$CIAO_ROOT/bin/ciao_component_server";
+ $node_app = "$CIAO_ROOT/bin/ciao_componentserver";
$d_cmd = "$DAnCE/bin/dance_node_manager";
$d_param = "-ORBEndpoint $iiop -s $node_app -n $nodename=$iorfile -d 30";
+
+ print "$d_param";
$Daemons[$i] = new PerlACE::Process ($d_cmd, $d_param);
$result = $Daemons[$i]->Spawn ();
push(@processes, $Daemons[$i]);
if (PerlACE::waitforfile_timed ($iorfile,
- $PerlACE::wait_interval_for_process_creation) == -1) {
+ 30) == -1) {
print STDERR
"ERROR: The ior $iorfile file of node daemon $i could not be found\n";
for (; $i >= 0; --$i) {