diff options
Diffstat (limited to 'CIAO/examples/Hello/descriptors/run_test_alias.pl')
-rwxr-xr-x | CIAO/examples/Hello/descriptors/run_test_alias.pl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/CIAO/examples/Hello/descriptors/run_test_alias.pl b/CIAO/examples/Hello/descriptors/run_test_alias.pl index 36f07f8b04b..d2a5de6a13a 100755 --- a/CIAO/examples/Hello/descriptors/run_test_alias.pl +++ b/CIAO/examples/Hello/descriptors/run_test_alias.pl @@ -222,11 +222,18 @@ if ($result != 0) { # Invoke executor - stop the application -. print "Invoking executor - stop the application -\n"; -print "by running dance_plan_launcher.exe with -k file://$ior_emfile -x $cdp_file -q\n"; +print "by running dance_plan_launcher.exe with -k file://$ior_emfile -x $cdp_file\n"; $E = $tg_executor->CreateProcess ("$DANCE_ROOT/bin/dance_plan_launcher", "-k file://$ior_emfile -x $cdp_file -s"); -$E->SpawnWaitKill ($tg_executor->ProcessStopWaitInterval ()); + +$pl_status = $E->SpawnWaitKill ($tg_executor->ProcessStartWaitInterval ()); + +if ($pl_status != 0) { + print STDERR "ERROR: dance_plan_launcher returned $pl_status\n"; + kill_open_processes (); + exit 1; +} print "Executor returned.\n"; print "Shutting down rest of the processes.\n"; |