diff options
Diffstat (limited to 'TAO/examples/Quoter/run_test.pl')
-rwxr-xr-x | TAO/examples/Quoter/run_test.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/TAO/examples/Quoter/run_test.pl b/TAO/examples/Quoter/run_test.pl index 681f6768bb6..42d1be9df40 100755 --- a/TAO/examples/Quoter/run_test.pl +++ b/TAO/examples/Quoter/run_test.pl @@ -1,10 +1,9 @@ +# $Id$ +# -*- perl -*- eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; -# $Id$ -# -*- perl -*- - # This is a Perl script that runs the client and all the other servers that # are needed. @@ -71,7 +70,7 @@ sub lifecycle_server my $prog = "..$DIR_SEPARATOR..$DIR_SEPARATOR"."orbsvcs$DIR_SEPARATOR". "LifeCycle_Service$DIR_SEPARATOR". "LifeCycle_Service$Process::EXE_EXT"; - + $LC = Process::Create ($prog, $args); } |