diff options
Diffstat (limited to 'TAO/CIAO/examples/Hello/descriptors/run_test_without_ns.pl')
-rwxr-xr-x | TAO/CIAO/examples/Hello/descriptors/run_test_without_ns.pl | 8 |
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; } |