diff options
| author | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-05-21 02:49:03 +0000 |
|---|---|---|
| committer | levine <levine@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 1999-05-21 02:49:03 +0000 |
| commit | 1a3315beb08400de64ceee9ec29c5a284ed23998 (patch) | |
| tree | 70f8f8d6891899bcc4075d0c62d4650f4371face /TAO/orbsvcs/tests/Event_Latency/run_test.pl | |
| parent | dce1b1ffb95f1fa7b2cfad0983861960c5906466 (diff) | |
| download | ATCD-1a3315beb08400de64ceee9ec29c5a284ed23998.tar.gz | |
moved comment line(s) from head of file so that it is not interpreted as a csh file
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, 5 insertions, 4 deletions
diff --git a/TAO/orbsvcs/tests/Event_Latency/run_test.pl b/TAO/orbsvcs/tests/Event_Latency/run_test.pl index 1c0506f887c..0004b4229f5 100755 --- a/TAO/orbsvcs/tests/Event_Latency/run_test.pl +++ b/TAO/orbsvcs/tests/Event_Latency/run_test.pl @@ -1,9 +1,10 @@ -# $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; @@ -11,7 +12,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; @@ -20,7 +21,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 (); |