diff options
Diffstat (limited to 'TAO/orbsvcs/tests/Event_Latency/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/Event_Latency/run_test.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/TAO/orbsvcs/tests/Event_Latency/run_test.pl b/TAO/orbsvcs/tests/Event_Latency/run_test.pl index 0004b4229f5..1c0506f887c 100755 --- a/TAO/orbsvcs/tests/Event_Latency/run_test.pl +++ b/TAO/orbsvcs/tests/Event_Latency/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,7 +11,7 @@ $NS_ior = "NameService.ior"; $sleeptime = 3; $NS = Process::Create ("../../Naming_Service/Naming_Service". - $Process::EXE_EXT." -o $NS_ior "); + $Process::EXE_EXT." -o $NS_ior "); sleep $sleeptime; @@ -21,7 +20,7 @@ $ES = Process::Create ("../../Event_Service/Event_Service".$Process::EXE_EXT); sleep $sleeptime; $status = system ($EXEPREFIX."Event_Latency".$Process::EXE_EXT. - " -j -m 100"); + " -j -m 100"); $NS->Kill (); $ES->Kill (); |