1 files changed, 4 insertions, 8 deletions
diff --git a/TAO/tests/Bug_1628_Regression/run_test.pl b/TAO/tests/Bug_1628_Regression/run_test.pl
index b6baa9a73a9..7f2c56bbb9f 100755
--- a/TAO/tests/Bug_1628_Regression/run_test.pl
+++ b/TAO/tests/Bug_1628_Regression/run_test.pl
@@ -9,14 +9,10 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 use lib "$ENV{ACE_ROOT}/bin";
 use PerlACE::TestTarget;
 
-$status =0;
-
-# The location of the tao_idl utility - depends on O/S
-if ($^O eq "MSWin32"){
-   $tao_idl = "../../../bin/tao_idl";
-}
-else{
-   $tao_idl = "../../../TAO/TAO_IDL/tao_idl";
+$status = 0;
+my $tao_idl = "$ENV{ACE_ROOT}/bin/tao_idl";
+if (exists $ENV{HOST_ROOT}) {
+    $tao_idl = "$ENV{HOST_ROOT}/bin/tao_idl";
 }
 
 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";