diff options
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Throughput/run_test.pl')
| -rwxr-xr-x | TAO/orbsvcs/tests/EC_Throughput/run_test.pl | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl index b5e952dd4d8..cfb17420485 100755 --- a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl +++ b/TAO/orbsvcs/tests/EC_Throughput/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; @@ -12,15 +11,15 @@ $NS_ior = "NameService.ior"; $sleeptime = 5; $NS = Process::Create ("..".$DIR_SEPARATOR. - "..".$DIR_SEPARATOR. - "Naming_Service".$DIR_SEPARATOR. - "Naming_Service".$Process::EXE_EXT. - " -o $NS_ior "); + "..".$DIR_SEPARATOR. + "Naming_Service".$DIR_SEPARATOR. + "Naming_Service".$Process::EXE_EXT. + " -o $NS_ior "); sleep $sleeptime; $T = Process::Create ($EXEPREFIX."ECT_Throughput".$Process::EXE_EXT - . " -ORBsvcconf ec.conf -m new -n 1000 "); + . " -ORBsvcconf ec.conf -m new -n 1000 "); sleep $sleeptime; |