1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
2 & eval 'exec perl -S $0 $argv:q'
7 use lib
"$ENV{ACE_ROOT}/bin";
8 use PerlACE
::TestTarget
;
10 $continuous = ($^O
eq 'hpux');
12 print STDERR
"\n********** RTCORBA Collocation Unit Test **********\n\n";
14 my $server = PerlACE
::TestTarget
::create_target
(1) || die "Create target 1 failed\n";
16 $T = $server->CreateProcess ("Collocation");
19 $T->Arguments("-ORBSvcConf continuous$PerlACE::svcconf_ext");
22 $test = $T->SpawnWaitKill($server->ProcessStartWaitInterval ());
24 # Mark as no longer running to avoid errors on exit.
28 print STDERR
"ERROR: test returned $test\n";