diff options
Diffstat (limited to 'TAO/orbsvcs/tests/EC_Multiple/run_test.pl')
-rwxr-xr-x | TAO/orbsvcs/tests/EC_Multiple/run_test.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/TAO/orbsvcs/tests/EC_Multiple/run_test.pl b/TAO/orbsvcs/tests/EC_Multiple/run_test.pl index df3183f0c3f..6a80cf9cf88 100755 --- a/TAO/orbsvcs/tests/EC_Multiple/run_test.pl +++ b/TAO/orbsvcs/tests/EC_Multiple/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,13 +12,13 @@ $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; # This is a very simple test, no multiple consumers and no gateways. $status = system ($EXEPREFIX."EC_Multiple".$Process::EXE_EXT. - " -s local"); + " -s local"); $NS->Kill (); |