diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Logger/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/Logger/run_test.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/TAO/orbsvcs/tests/Logger/run_test.pl b/TAO/orbsvcs/tests/Logger/run_test.pl index bf052ebdb58..bbacd0be9ee 100755 --- a/TAO/orbsvcs/tests/Logger/run_test.pl +++ b/TAO/orbsvcs/tests/Logger/run_test.pl @@ -1,10 +1,8 @@ +# $Id$ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; -# $Id$ -# -*- perl -*- - $tao_root = $ENV{TAO_ROOT}; # This is a Perl script that runs the Logger client and server @@ -19,7 +17,7 @@ sub service { my $args = ""; my $prog = $EXEPREFIX."$tao_root/orbsvcs/Logging_Service/Logging_Service" - .$Process::EXE_EXT; + .$Process::EXE_EXT; $SV = Process::Create ($prog, $args); } @@ -28,7 +26,7 @@ sub test { my $args = ""; my $prog = $EXEPREFIX."Logging_Test".$Process::EXE_EXT; - + system ("$prog $args"); } |