diff options
Diffstat (limited to 'TAO/tests/Bug_2683_Regression/run_test.pl')
-rwxr-xr-x | TAO/tests/Bug_2683_Regression/run_test.pl | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/TAO/tests/Bug_2683_Regression/run_test.pl b/TAO/tests/Bug_2683_Regression/run_test.pl index 2fa15818757..b47caa3c5bd 100755 --- a/TAO/tests/Bug_2683_Regression/run_test.pl +++ b/TAO/tests/Bug_2683_Regression/run_test.pl @@ -18,17 +18,15 @@ foreach $i (@ARGV) { } unlink $iorfile; -$TARGETHOSTNAME = "localhost"; if (PerlACE::is_vxworks_test()) { - $TARGETHOSTNAME = $ENV{'ACE_RUN_VX_TGT_HOST'}; - $SV = new PerlACE::ProcessVX ("server", "-ORBEndpoint iiop://$TARGETHOSTNAME:43210"); + $SV = new PerlACE::ProcessVX ("server", "-ORBEndpoint iiop://localhost:43210"); } else { - $SV = new PerlACE::Process ("server", "-ORBEndpoint iiop://$TARGETHOSTNAME:43210"); + $SV = new PerlACE::Process ("server", "-ORBEndpoint iiop://localhost:43210"); } -$CL = new PerlACE::Process ("client", " -p 43210 -h $TARGETHOSTNAME"); +$CL = new PerlACE::Process ("client", " -p 43210"); $server = $SV->Spawn (); |