diff options
Diffstat (limited to 'TAO/performance-tests/Cubit/TAO/DII_Cubit/run_test.pl')
-rwxr-xr-x | TAO/performance-tests/Cubit/TAO/DII_Cubit/run_test.pl | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/TAO/performance-tests/Cubit/TAO/DII_Cubit/run_test.pl b/TAO/performance-tests/Cubit/TAO/DII_Cubit/run_test.pl index 850b05d6503..bb1241bfd7e 100755 --- a/TAO/performance-tests/Cubit/TAO/DII_Cubit/run_test.pl +++ b/TAO/performance-tests/Cubit/TAO/DII_Cubit/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 -*- - unshift @INC, '../../../../../bin'; require Process; @@ -14,17 +13,17 @@ $iorfile = "theior"; $sleeptime = 5; $SV = Process::Create ("..$DIR_SEPARATOR" - ."IDL_Cubit".$DIR_SEPARATOR. - "server".$Process::EXE_EXT, + ."IDL_Cubit".$DIR_SEPARATOR. + "server".$Process::EXE_EXT, " -ORBport ".$server_port. - " -ORBobjrefstyle url". - " -o $iorfile"); + " -ORBobjrefstyle url". + " -o $iorfile"); sleep $sleeptime; $status = system ("client".$Process::EXE_EXT. - " -ORBport $client_port". - " -f $iorfile -x"); + " -ORBport $client_port". + " -f $iorfile -x"); # @@ TODO change to Wait() once the -x option works. $SV->Kill (); $SV->Wait (); |