summaryrefslogtreecommitdiff
path: root/TAO/orbsvcs/tests/Logger/run_test.pl
diff options
context:
space:
mode:
Diffstat (limited to 'TAO/orbsvcs/tests/Logger/run_test.pl')
-rwxr-xr-xTAO/orbsvcs/tests/Logger/run_test.pl8
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");
}