summaryrefslogtreecommitdiff
path: root/TAO/CIAO/examples/Hello/descriptors/run_test_without_ns.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/CIAO/examples/Hello/descriptors/run_test_without_ns.pl')
-rwxr-xr-xTAO/CIAO/examples/Hello/descriptors/run_test_without_ns.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/TAO/CIAO/examples/Hello/descriptors/run_test_without_ns.pl b/TAO/CIAO/examples/Hello/descriptors/run_test_without_ns.pl
index c0659c4299f..10a167a513e 100755
--- a/TAO/CIAO/examples/Hello/descriptors/run_test_without_ns.pl
+++ b/TAO/CIAO/examples/Hello/descriptors/run_test_without_ns.pl
@@ -104,7 +104,7 @@ if (PerlACE::waitforfile_timed ("EM.ior",
$PerlACE::wait_interval_for_process_creation) == -1) {
print STDERR
"ERROR: The ior file of execution manager could not be found\n";
- kill_open_processes ();
+ kill_open_processes ();
exit 1;
}
@@ -115,21 +115,21 @@ print "Invoking executor - start the application -\n";
$E =
new PerlACE::Process ("$DAnCE/Plan_Launcher/plan_launcher",
"-p flattened_deploymentplan_without_ns.cdp -k file://EM.ior -o DAM.ior");
-
+
$E->SpawnWaitKill (5000);
if (PerlACE::waitforfile_timed (
"Receiver.ior",
$PerlACE::wait_interval_for_process_creation) == -1) {
print STDERR "ERROR: The ior file of receiver could not be found\n";
- kill_open_processes ();
+ kill_open_processes ();
exit 1;
}
if (PerlACE::waitforfile_timed ("Sender.ior",
$PerlACE::wait_interval_for_process_creation) == -1) {
print STDERR "ERROR: The ior file of sender could not be found\n";
- kill_open_processes ();
+ kill_open_processes ();
exit 1;
}