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