diff options
Diffstat (limited to 'TAO/tests')
259 files changed, 263 insertions, 263 deletions
diff --git a/TAO/tests/AMH_Exceptions/run_test.pl b/TAO/tests/AMH_Exceptions/run_test.pl index 4c78cd27121..11dc1f3e86a 100755 --- a/TAO/tests/AMH_Exceptions/run_test.pl +++ b/TAO/tests/AMH_Exceptions/run_test.pl @@ -7,7 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # This is a Perl script that tests AMH exceptions -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # Amount of delay (in seconds) between starting a server and a client. diff --git a/TAO/tests/AMH_Oneway/run_test.pl b/TAO/tests/AMH_Oneway/run_test.pl index e092024d923..6c986fc5fe4 100755 --- a/TAO/tests/AMH_Oneway/run_test.pl +++ b/TAO/tests/AMH_Oneway/run_test.pl @@ -7,7 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # This is a Perl script that tests AMH exceptions -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # Amount of delay (in seconds) between starting a server and a client. diff --git a/TAO/tests/AMI/run_test.pl b/TAO/tests/AMI/run_test.pl index 8b43bbe69a4..4797af89617 100755 --- a/TAO/tests/AMI/run_test.pl +++ b/TAO/tests/AMI/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $client_conf = PerlACE::LocalFile ("muxed$PerlACE::svcconf_ext"); diff --git a/TAO/tests/AMI_Buffering/run_buffer_size.pl b/TAO/tests/AMI_Buffering/run_buffer_size.pl index 9eccd0b7e84..6f3f961b9d0 100755 --- a/TAO/tests/AMI_Buffering/run_buffer_size.pl +++ b/TAO/tests/AMI_Buffering/run_buffer_size.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/AMI_Buffering/run_message_count.pl b/TAO/tests/AMI_Buffering/run_message_count.pl index e25a1eae4fa..030af52a919 100755 --- a/TAO/tests/AMI_Buffering/run_message_count.pl +++ b/TAO/tests/AMI_Buffering/run_message_count.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/AMI_Buffering/run_test.pl b/TAO/tests/AMI_Buffering/run_test.pl index f9d4e94f1e3..9bd93d690f4 100755 --- a/TAO/tests/AMI_Buffering/run_test.pl +++ b/TAO/tests/AMI_Buffering/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/AMI_Buffering/run_timeout.pl b/TAO/tests/AMI_Buffering/run_timeout.pl index 049e0ab3926..5e93a904afb 100755 --- a/TAO/tests/AMI_Buffering/run_timeout.pl +++ b/TAO/tests/AMI_Buffering/run_timeout.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/AMI_Buffering/run_timeout_reactive.pl b/TAO/tests/AMI_Buffering/run_timeout_reactive.pl index f91953726d9..d5fd87fe65c 100755 --- a/TAO/tests/AMI_Buffering/run_timeout_reactive.pl +++ b/TAO/tests/AMI_Buffering/run_timeout_reactive.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/AMI_Timeouts/run_test.pl b/TAO/tests/AMI_Timeouts/run_test.pl index 1be52c73e61..6dbaca78674 100755 --- a/TAO/tests/AMI_Timeouts/run_test.pl +++ b/TAO/tests/AMI_Timeouts/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Abstract_Interface/run_test.pl b/TAO/tests/Abstract_Interface/run_test.pl index 2c44e9a4c2f..70505ff65a5 100755 --- a/TAO/tests/Abstract_Interface/run_test.pl +++ b/TAO/tests/Abstract_Interface/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $debug = ""; diff --git a/TAO/tests/AlternateIIOP/run_test.pl b/TAO/tests/AlternateIIOP/run_test.pl index e39c7c44821..bd1d4029737 100755 --- a/TAO/tests/AlternateIIOP/run_test.pl +++ b/TAO/tests/AlternateIIOP/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("altiiop.ior"); diff --git a/TAO/tests/Any/Recursive/run_test.pl b/TAO/tests/Any/Recursive/run_test.pl index a3715338fd2..64e11e2f470 100755 --- a/TAO/tests/Any/Recursive/run_test.pl +++ b/TAO/tests/Any/Recursive/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/BiDirectional/run_test.pl b/TAO/tests/BiDirectional/run_test.pl index ee4c91cce64..4b330bb1eaa 100755 --- a/TAO/tests/BiDirectional/run_test.pl +++ b/TAO/tests/BiDirectional/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/BiDirectional/run_test_ipv6.pl b/TAO/tests/BiDirectional/run_test_ipv6.pl index c422afa3a00..9156d8a5521 100755 --- a/TAO/tests/BiDirectional/run_test_ipv6.pl +++ b/TAO/tests/BiDirectional/run_test_ipv6.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/BiDirectional_DelayedUpcall/run_test.pl b/TAO/tests/BiDirectional_DelayedUpcall/run_test.pl index ee4c91cce64..4b330bb1eaa 100755 --- a/TAO/tests/BiDirectional_DelayedUpcall/run_test.pl +++ b/TAO/tests/BiDirectional_DelayedUpcall/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/BiDirectional_MultipleORB/run_test.pl b/TAO/tests/BiDirectional_MultipleORB/run_test.pl index cf56e4473d7..36083aedb75 100755 --- a/TAO/tests/BiDirectional_MultipleORB/run_test.pl +++ b/TAO/tests/BiDirectional_MultipleORB/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/BiDirectional_NestedUpcall/run_test.pl b/TAO/tests/BiDirectional_NestedUpcall/run_test.pl index 8137e525c9f..d8f1eabab25 100755 --- a/TAO/tests/BiDirectional_NestedUpcall/run_test.pl +++ b/TAO/tests/BiDirectional_NestedUpcall/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Big_AMI/run_test.pl b/TAO/tests/Big_AMI/run_test.pl index 94adacdeef7..e47a3bc549e 100755 --- a/TAO/tests/Big_AMI/run_test.pl +++ b/TAO/tests/Big_AMI/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $debug_level = '0'; diff --git a/TAO/tests/Big_Oneways/run_test.pl b/TAO/tests/Big_Oneways/run_test.pl index 45175d43e98..87ed5192912 100755 --- a/TAO/tests/Big_Oneways/run_test.pl +++ b/TAO/tests/Big_Oneways/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; use Getopt::Std; diff --git a/TAO/tests/Big_Reply/run_test.pl b/TAO/tests/Big_Reply/run_test.pl index 3ff43b31c90..c2d53ef293e 100755 --- a/TAO/tests/Big_Reply/run_test.pl +++ b/TAO/tests/Big_Reply/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Big_Request_Muxing/run_test.pl b/TAO/tests/Big_Request_Muxing/run_test.pl index f0985f7c959..d5c949f1f92 100755 --- a/TAO/tests/Big_Request_Muxing/run_test.pl +++ b/TAO/tests/Big_Request_Muxing/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Big_Twoways/run_test.pl b/TAO/tests/Big_Twoways/run_test.pl index 196c4a41088..17afaebf3f9 100755 --- a/TAO/tests/Big_Twoways/run_test.pl +++ b/TAO/tests/Big_Twoways/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; use Getopt::Std; diff --git a/TAO/tests/Blocking_Sync_None/run_test.pl b/TAO/tests/Blocking_Sync_None/run_test.pl index 51325a4dc56..920cd2391ff 100755 --- a/TAO/tests/Blocking_Sync_None/run_test.pl +++ b/TAO/tests/Blocking_Sync_None/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1020_Basic_Regression/run_test.pl b/TAO/tests/Bug_1020_Basic_Regression/run_test.pl index c712b41efc6..ab801eddf1f 100755 --- a/TAO/tests/Bug_1020_Basic_Regression/run_test.pl +++ b/TAO/tests/Bug_1020_Basic_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1020_Regression/run_test.pl b/TAO/tests/Bug_1020_Regression/run_test.pl index 18a834079b0..2bb06a287a3 100755 --- a/TAO/tests/Bug_1020_Regression/run_test.pl +++ b/TAO/tests/Bug_1020_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1254_Regression/run_test.pl b/TAO/tests/Bug_1254_Regression/run_test.pl index cb77b93fe3e..c6127496c31 100755 --- a/TAO/tests/Bug_1254_Regression/run_test.pl +++ b/TAO/tests/Bug_1254_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_1269_Regression/run_test.pl b/TAO/tests/Bug_1269_Regression/run_test.pl index dab459717ee..ec9477102b4 100755 --- a/TAO/tests/Bug_1269_Regression/run_test.pl +++ b/TAO/tests/Bug_1269_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1270_Regression/run_test.pl b/TAO/tests/Bug_1270_Regression/run_test.pl index 9c650eae188..e6f12f03ee0 100755 --- a/TAO/tests/Bug_1270_Regression/run_test.pl +++ b/TAO/tests/Bug_1270_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1330_Regression/run_test.pl b/TAO/tests/Bug_1330_Regression/run_test.pl index 4dfde222810..78e88ee7c55 100755 --- a/TAO/tests/Bug_1330_Regression/run_test.pl +++ b/TAO/tests/Bug_1330_Regression/run_test.pl @@ -7,7 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # The server IOR file diff --git a/TAO/tests/Bug_1361_Regression/run_test.pl b/TAO/tests/Bug_1361_Regression/run_test.pl index 796016188cf..497722d829d 100755 --- a/TAO/tests/Bug_1361_Regression/run_test.pl +++ b/TAO/tests/Bug_1361_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; use POSIX "sys_wait_h"; diff --git a/TAO/tests/Bug_1476_Regression/run_test.pl b/TAO/tests/Bug_1476_Regression/run_test.pl index 1ce2ac99248..02391f05919 100755 --- a/TAO/tests/Bug_1476_Regression/run_test.pl +++ b/TAO/tests/Bug_1476_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1482_Regression/run_test.pl b/TAO/tests/Bug_1482_Regression/run_test.pl index a62e792625a..364fb54817c 100755 --- a/TAO/tests/Bug_1482_Regression/run_test.pl +++ b/TAO/tests/Bug_1482_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1495_Regression/run_test.pl b/TAO/tests/Bug_1495_Regression/run_test.pl index 417ff9437e6..03ecb0e43c2 100755 --- a/TAO/tests/Bug_1495_Regression/run_test.pl +++ b/TAO/tests/Bug_1495_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $inputfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/Bug_1495_Regression/run_test_complex.pl b/TAO/tests/Bug_1495_Regression/run_test_complex.pl index 5cb99abd017..c3e580f4f41 100755 --- a/TAO/tests/Bug_1495_Regression/run_test_complex.pl +++ b/TAO/tests/Bug_1495_Regression/run_test_complex.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $inputfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/Bug_1535_Regression/run_test.pl b/TAO/tests/Bug_1535_Regression/run_test.pl index 6e368d26fcc..0aaeba388ef 100755 --- a/TAO/tests/Bug_1535_Regression/run_test.pl +++ b/TAO/tests/Bug_1535_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_1551_Regression/run_test.pl b/TAO/tests/Bug_1551_Regression/run_test.pl index 380a98e495d..12139851d73 100755 --- a/TAO/tests/Bug_1551_Regression/run_test.pl +++ b/TAO/tests/Bug_1551_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1568_Regression/run_test.pl b/TAO/tests/Bug_1568_Regression/run_test.pl index 052826cdd5c..90ae124d1c8 100755 --- a/TAO/tests/Bug_1568_Regression/run_test.pl +++ b/TAO/tests/Bug_1568_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1627_Regression/run_test.pl b/TAO/tests/Bug_1627_Regression/run_test.pl index 2a542726cec..99aa9f856da 100755 --- a/TAO/tests/Bug_1627_Regression/run_test.pl +++ b/TAO/tests/Bug_1627_Regression/run_test.pl @@ -7,7 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # The server IOR file diff --git a/TAO/tests/Bug_1628_Regression/run_test.pl b/TAO/tests/Bug_1628_Regression/run_test.pl index e2abf7ec7d8..c13cae17c01 100755 --- a/TAO/tests/Bug_1628_Regression/run_test.pl +++ b/TAO/tests/Bug_1628_Regression/run_test.pl @@ -7,7 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status =0; diff --git a/TAO/tests/Bug_1635_Regression/run_test.pl b/TAO/tests/Bug_1635_Regression/run_test.pl index 41231eb00e8..0f75a15dce8 100755 --- a/TAO/tests/Bug_1635_Regression/run_test.pl +++ b/TAO/tests/Bug_1635_Regression/run_test.pl @@ -6,7 +6,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # The file we want TAO to write debug messages to diff --git a/TAO/tests/Bug_1636_Regression/run_test.pl b/TAO/tests/Bug_1636_Regression/run_test.pl index 3003b155caa..b1f66ba55ce 100755 --- a/TAO/tests/Bug_1636_Regression/run_test.pl +++ b/TAO/tests/Bug_1636_Regression/run_test.pl @@ -8,7 +8,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # This is a Perl script that runs the federated Name Service timeout test. # It starts all the servers and clients as necessary. -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; diff --git a/TAO/tests/Bug_1639_Regression/run_test.pl b/TAO/tests/Bug_1639_Regression/run_test.pl index 7c101f09272..03d0a337d5e 100755 --- a/TAO/tests/Bug_1639_Regression/run_test.pl +++ b/TAO/tests/Bug_1639_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_1670_Regression/run_test.pl b/TAO/tests/Bug_1670_Regression/run_test.pl index 052826cdd5c..90ae124d1c8 100755 --- a/TAO/tests/Bug_1670_Regression/run_test.pl +++ b/TAO/tests/Bug_1670_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_1676_Regression/run_test.pl b/TAO/tests/Bug_1676_Regression/run_test.pl index 5d02e3606f1..fee5bc7bc29 100755 --- a/TAO/tests/Bug_1676_Regression/run_test.pl +++ b/TAO/tests/Bug_1676_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_1693_Test/run_test.pl b/TAO/tests/Bug_1693_Test/run_test.pl index fc38be4d944..ea064fb466a 100755 --- a/TAO/tests/Bug_1693_Test/run_test.pl +++ b/TAO/tests/Bug_1693_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- # $Id$ -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; print STDERR "\n\n==== Running Bug_1693_Test test\n"; diff --git a/TAO/tests/Bug_1869_Regression/run_test.pl b/TAO/tests/Bug_1869_Regression/run_test.pl index 2a6eb183455..b01f8718b03 100644 --- a/TAO/tests/Bug_1869_Regression/run_test.pl +++ b/TAO/tests/Bug_1869_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/Bug_2084_Regression/run_test.pl b/TAO/tests/Bug_2084_Regression/run_test.pl index df9a75e42d4..788c01a15ed 100755 --- a/TAO/tests/Bug_2084_Regression/run_test.pl +++ b/TAO/tests/Bug_2084_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/Bug_2134_Regression/run_test.pl b/TAO/tests/Bug_2134_Regression/run_test.pl index a5aca85b1b0..46e02e111e2 100755 --- a/TAO/tests/Bug_2134_Regression/run_test.pl +++ b/TAO/tests/Bug_2134_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_2174_Regression/run_test.pl b/TAO/tests/Bug_2174_Regression/run_test.pl index 02366a5ebb4..5c1415515e4 100755 --- a/TAO/tests/Bug_2174_Regression/run_test.pl +++ b/TAO/tests/Bug_2174_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Bug_2183_Regression/run_test.pl b/TAO/tests/Bug_2183_Regression/run_test.pl index 483b71e5ebc..e2ebc4bc7b7 100755 --- a/TAO/tests/Bug_2183_Regression/run_test.pl +++ b/TAO/tests/Bug_2183_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- # $Id$ -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # The server IOR file diff --git a/TAO/tests/Bug_2186_Regression/run_test.pl b/TAO/tests/Bug_2186_Regression/run_test.pl index e1790866584..96f98131501 100755 --- a/TAO/tests/Bug_2186_Regression/run_test.pl +++ b/TAO/tests/Bug_2186_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_2201_Regression/run_test.pl b/TAO/tests/Bug_2201_Regression/run_test.pl index fc3d16c5bbf..cea32ccfc62 100755 --- a/TAO/tests/Bug_2201_Regression/run_test.pl +++ b/TAO/tests/Bug_2201_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/Bug_2234_Regression/run_test.pl b/TAO/tests/Bug_2234_Regression/run_test.pl index dcdfcbce7e8..58608c03ef6 100755 --- a/TAO/tests/Bug_2234_Regression/run_test.pl +++ b/TAO/tests/Bug_2234_Regression/run_test.pl @@ -6,7 +6,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # The server IOR file diff --git a/TAO/tests/Bug_2289_Regression/run_test.pl b/TAO/tests/Bug_2289_Regression/run_test.pl index f25f0ae4f60..1a09fe820b3 100755 --- a/TAO/tests/Bug_2289_Regression/run_test.pl +++ b/TAO/tests/Bug_2289_Regression/run_test.pl @@ -6,7 +6,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # The server IOR file diff --git a/TAO/tests/Bug_2319_Regression/run_test.pl b/TAO/tests/Bug_2319_Regression/run_test.pl index 1c118935b70..3f6ccefdb04 100755 --- a/TAO/tests/Bug_2319_Regression/run_test.pl +++ b/TAO/tests/Bug_2319_Regression/run_test.pl @@ -7,7 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # This is a Perl script that tests AMH exceptions -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $AMH = new PerlACE::Process ("server", ""); diff --git a/TAO/tests/Bug_2328_Regression/run_test.pl b/TAO/tests/Bug_2328_Regression/run_test.pl index f5831bdb8e9..a1bb988ec23 100755 --- a/TAO/tests/Bug_2328_Regression/run_test.pl +++ b/TAO/tests/Bug_2328_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_2345_Regression/run_test.pl b/TAO/tests/Bug_2345_Regression/run_test.pl index fa8e977afd2..af993694fbe 100755 --- a/TAO/tests/Bug_2345_Regression/run_test.pl +++ b/TAO/tests/Bug_2345_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_2417_Regression/run_test.pl b/TAO/tests/Bug_2417_Regression/run_test.pl index 21cd1ff1714..d3ef72b225d 100755 --- a/TAO/tests/Bug_2417_Regression/run_test.pl +++ b/TAO/tests/Bug_2417_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("ior.out"); diff --git a/TAO/tests/Bug_2429_Regression/run_test.pl b/TAO/tests/Bug_2429_Regression/run_test.pl index 542e46da4ff..2fd3dcdf8c4 100755 --- a/TAO/tests/Bug_2429_Regression/run_test.pl +++ b/TAO/tests/Bug_2429_Regression/run_test.pl @@ -6,7 +6,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # The server IOR file diff --git a/TAO/tests/Bug_2494_Regression/run_test.pl b/TAO/tests/Bug_2494_Regression/run_test.pl index 1183cac469c..105bf8027a6 100755 --- a/TAO/tests/Bug_2494_Regression/run_test.pl +++ b/TAO/tests/Bug_2494_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_2503_Regression/run_test.pl b/TAO/tests/Bug_2503_Regression/run_test.pl index 8df523760ef..64e4a676717 100755 --- a/TAO/tests/Bug_2503_Regression/run_test.pl +++ b/TAO/tests/Bug_2503_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_2542_Regression/run_test.pl b/TAO/tests/Bug_2542_Regression/run_test.pl index 7634915c348..d288c0da8b3 100755 --- a/TAO/tests/Bug_2542_Regression/run_test.pl +++ b/TAO/tests/Bug_2542_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_2543_Regression/run_test.pl b/TAO/tests/Bug_2543_Regression/run_test.pl index 7634915c348..d288c0da8b3 100755 --- a/TAO/tests/Bug_2543_Regression/run_test.pl +++ b/TAO/tests/Bug_2543_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_2593_Regression/run_test.pl b/TAO/tests/Bug_2593_Regression/run_test.pl index e7edaf3fbc2..be4ae9996d0 100755 --- a/TAO/tests/Bug_2593_Regression/run_test.pl +++ b/TAO/tests/Bug_2593_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Bug_2595_Regression/run_test.pl b/TAO/tests/Bug_2595_Regression/run_test.pl index 5d02e3606f1..fee5bc7bc29 100755 --- a/TAO/tests/Bug_2595_Regression/run_test.pl +++ b/TAO/tests/Bug_2595_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/CDR/run_test.pl b/TAO/tests/CDR/run_test.pl index eeaf6f75224..109f37ec31b 100755 --- a/TAO/tests/CDR/run_test.pl +++ b/TAO/tests/CDR/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $brace="\#\#\#\#\#"; diff --git a/TAO/tests/CSD_Strategy_Tests/Broken/run_test.pl b/TAO/tests/CSD_Strategy_Tests/Broken/run_test.pl index 6d3802bc59f..399443c5b71 100755 --- a/TAO/tests/CSD_Strategy_Tests/Broken/run_test.pl +++ b/TAO/tests/CSD_Strategy_Tests/Broken/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; my $status = 0; diff --git a/TAO/tests/CSD_Strategy_Tests/TP_Test_1/run_test.pl b/TAO/tests/CSD_Strategy_Tests/TP_Test_1/run_test.pl index 1ff6338702b..311aacb207e 100755 --- a/TAO/tests/CSD_Strategy_Tests/TP_Test_1/run_test.pl +++ b/TAO/tests/CSD_Strategy_Tests/TP_Test_1/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/CSD_Strategy_Tests/TP_Test_2/run_test.pl b/TAO/tests/CSD_Strategy_Tests/TP_Test_2/run_test.pl index 37fd19f21f6..7da2894591d 100755 --- a/TAO/tests/CSD_Strategy_Tests/TP_Test_2/run_test.pl +++ b/TAO/tests/CSD_Strategy_Tests/TP_Test_2/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; my $status = 0; diff --git a/TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl b/TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl index 13aac1fa8c9..654bb11358f 100755 --- a/TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl +++ b/TAO/tests/CSD_Strategy_Tests/TP_Test_3/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; my $status = 0; diff --git a/TAO/tests/CSD_Strategy_Tests/TP_Test_4/run_test.pl b/TAO/tests/CSD_Strategy_Tests/TP_Test_4/run_test.pl index f50c6616e1e..be5769d3558 100755 --- a/TAO/tests/CSD_Strategy_Tests/TP_Test_4/run_test.pl +++ b/TAO/tests/CSD_Strategy_Tests/TP_Test_4/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; my $status = 0; diff --git a/TAO/tests/CSD_Strategy_Tests/TP_Test_Dynamic/run_test.pl b/TAO/tests/CSD_Strategy_Tests/TP_Test_Dynamic/run_test.pl index de69f709455..fee5bc7bc29 100755 --- a/TAO/tests/CSD_Strategy_Tests/TP_Test_Dynamic/run_test.pl +++ b/TAO/tests/CSD_Strategy_Tests/TP_Test_Dynamic/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/CSD_Strategy_Tests/TP_Test_Static/run_test.pl b/TAO/tests/CSD_Strategy_Tests/TP_Test_Static/run_test.pl index 7e34ffa58ba..e9289a8d63c 100755 --- a/TAO/tests/CSD_Strategy_Tests/TP_Test_Static/run_test.pl +++ b/TAO/tests/CSD_Strategy_Tests/TP_Test_Static/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Cache_Growth_Test/run_test.pl b/TAO/tests/Cache_Growth_Test/run_test.pl index 35db649c452..f0ceb58d264 100755 --- a/TAO/tests/Cache_Growth_Test/run_test.pl +++ b/TAO/tests/Cache_Growth_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/CallbackTest/run_test.pl b/TAO/tests/CallbackTest/run_test.pl index 4fbbc680ff2..205ae00ffa6 100755 --- a/TAO/tests/CallbackTest/run_test.pl +++ b/TAO/tests/CallbackTest/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/CallbackTest/run_test_ipv6.pl b/TAO/tests/CallbackTest/run_test_ipv6.pl index d015ffcec7c..aa79fc0f693 100755 --- a/TAO/tests/CallbackTest/run_test_ipv6.pl +++ b/TAO/tests/CallbackTest/run_test_ipv6.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/CallbackTest/run_test_mixed_ip.pl b/TAO/tests/CallbackTest/run_test_mixed_ip.pl index 9aea2e31cac..98ce37093f5 100755 --- a/TAO/tests/CallbackTest/run_test_mixed_ip.pl +++ b/TAO/tests/CallbackTest/run_test_mixed_ip.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Client_Leaks/run_test.pl b/TAO/tests/Client_Leaks/run_test.pl index 877d66779df..12a70dfd064 100755 --- a/TAO/tests/Client_Leaks/run_test.pl +++ b/TAO/tests/Client_Leaks/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/CodeSets/simple/run_test.pl b/TAO/tests/CodeSets/simple/run_test.pl index 4cf6ee6747d..4f100136ad2 100755 --- a/TAO/tests/CodeSets/simple/run_test.pl +++ b/TAO/tests/CodeSets/simple/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Codec/run_test.pl b/TAO/tests/Codec/run_test.pl index 957553ed86a..e38457ac605 100755 --- a/TAO/tests/Codec/run_test.pl +++ b/TAO/tests/Codec/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # -*- perl -*- # $Id$ -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; print STDERR "\n\n==== Running Codec test\n"; diff --git a/TAO/tests/Collocation/run_test.pl b/TAO/tests/Collocation/run_test.pl index 191f0046122..4257cc453e8 100755 --- a/TAO/tests/Collocation/run_test.pl +++ b/TAO/tests/Collocation/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/CollocationLockup/run_test.pl b/TAO/tests/CollocationLockup/run_test.pl index 3334b89b4aa..c15a993e9ba 100755 --- a/TAO/tests/CollocationLockup/run_test.pl +++ b/TAO/tests/CollocationLockup/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; use strict; diff --git a/TAO/tests/Collocation_Exception_Test/run_test.pl b/TAO/tests/Collocation_Exception_Test/run_test.pl index f1f44fd0577..8267ef42988 100755 --- a/TAO/tests/Collocation_Exception_Test/run_test.pl +++ b/TAO/tests/Collocation_Exception_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/Collocation_Oneway_Tests/run_test.pl b/TAO/tests/Collocation_Oneway_Tests/run_test.pl index 833ea238102..61a15200523 100755 --- a/TAO/tests/Collocation_Oneway_Tests/run_test.pl +++ b/TAO/tests/Collocation_Oneway_Tests/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/Collocation_Opportunities/run_test.pl b/TAO/tests/Collocation_Opportunities/run_test.pl index bb3e5277ea9..10921ceda97 100755 --- a/TAO/tests/Collocation_Opportunities/run_test.pl +++ b/TAO/tests/Collocation_Opportunities/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/Collocation_Tests/run_test.pl b/TAO/tests/Collocation_Tests/run_test.pl index c34197a9c57..2361b7d21ed 100755 --- a/TAO/tests/Collocation_Tests/run_test.pl +++ b/TAO/tests/Collocation_Tests/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/Connect_Strategy_Test/run_test.pl b/TAO/tests/Connect_Strategy_Test/run_test.pl index c5797abb37e..ce25f55db3d 100755 --- a/TAO/tests/Connect_Strategy_Test/run_test.pl +++ b/TAO/tests/Connect_Strategy_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Connection_Failure/run_test.pl b/TAO/tests/Connection_Failure/run_test.pl index 16469fa132a..6b6eae83977 100755 --- a/TAO/tests/Connection_Failure/run_test.pl +++ b/TAO/tests/Connection_Failure/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Connection_Purging/run_test.pl b/TAO/tests/Connection_Purging/run_test.pl index 232eec1f955..92930236d81 100755 --- a/TAO/tests/Connection_Purging/run_test.pl +++ b/TAO/tests/Connection_Purging/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Connection_Timeout/run_test.pl b/TAO/tests/Connection_Timeout/run_test.pl index 8a5b5817f0f..e25d718f6af 100755 --- a/TAO/tests/Connection_Timeout/run_test.pl +++ b/TAO/tests/Connection_Timeout/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Crash_On_Write/run_test.pl b/TAO/tests/Crash_On_Write/run_test.pl index 28cfc0e71a7..9c81ed556ca 100755 --- a/TAO/tests/Crash_On_Write/run_test.pl +++ b/TAO/tests/Crash_On_Write/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Crashed_Callback/run_test.pl b/TAO/tests/Crashed_Callback/run_test.pl index 4fbbc680ff2..205ae00ffa6 100755 --- a/TAO/tests/Crashed_Callback/run_test.pl +++ b/TAO/tests/Crashed_Callback/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/DII_Collocation_Tests/oneway/run_test.pl b/TAO/tests/DII_Collocation_Tests/oneway/run_test.pl index 592179ac316..63649096dde 100755 --- a/TAO/tests/DII_Collocation_Tests/oneway/run_test.pl +++ b/TAO/tests/DII_Collocation_Tests/oneway/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/DII_Collocation_Tests/twoway/run_test.pl b/TAO/tests/DII_Collocation_Tests/twoway/run_test.pl index 592179ac316..63649096dde 100755 --- a/TAO/tests/DII_Collocation_Tests/twoway/run_test.pl +++ b/TAO/tests/DII_Collocation_Tests/twoway/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/DSI_Gateway/run_exception_test.pl b/TAO/tests/DSI_Gateway/run_exception_test.pl index 7ebeb4048f2..d8ab49c6440 100755 --- a/TAO/tests/DSI_Gateway/run_exception_test.pl +++ b/TAO/tests/DSI_Gateway/run_exception_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $svfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/DSI_Gateway/run_test.pl b/TAO/tests/DSI_Gateway/run_test.pl index 46ca8588693..33654bcadf1 100755 --- a/TAO/tests/DSI_Gateway/run_test.pl +++ b/TAO/tests/DSI_Gateway/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $svfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/DynAny_Test/run_test.pl b/TAO/tests/DynAny_Test/run_test.pl index 6e894398de5..b1b5a2d88aa 100755 --- a/TAO/tests/DynAny_Test/run_test.pl +++ b/TAO/tests/DynAny_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Explicit_Event_Loop/run_test.pl b/TAO/tests/Explicit_Event_Loop/run_test.pl index 103f523706c..36115d54074 100755 --- a/TAO/tests/Explicit_Event_Loop/run_test.pl +++ b/TAO/tests/Explicit_Event_Loop/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Exposed_Policies/run_test.pl b/TAO/tests/Exposed_Policies/run_test.pl index 9ea2e82c7d1..b5102943f5e 100755 --- a/TAO/tests/Exposed_Policies/run_test.pl +++ b/TAO/tests/Exposed_Policies/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; require PerlACE::Run_Test; $base_ior_file = PerlACE::LocalFile ("default.ior"); diff --git a/TAO/tests/Faults/run_test.pl b/TAO/tests/Faults/run_test.pl index c4a0c9319e2..ccb548e4312 100755 --- a/TAO/tests/Faults/run_test.pl +++ b/TAO/tests/Faults/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/File_IO/run_test.pl b/TAO/tests/File_IO/run_test.pl index 302f5244e4b..7797ff5ad8d 100755 --- a/TAO/tests/File_IO/run_test.pl +++ b/TAO/tests/File_IO/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Forwarding/run_test.pl b/TAO/tests/Forwarding/run_test.pl index 69d94eedb7a..bc338928330 100755 --- a/TAO/tests/Forwarding/run_test.pl +++ b/TAO/tests/Forwarding/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/GIOP_Fragments/Java_Big_Reply/run_test.pl b/TAO/tests/GIOP_Fragments/Java_Big_Reply/run_test.pl index d51fafed5e6..32ca0242feb 100755 --- a/TAO/tests/GIOP_Fragments/Java_Big_Reply/run_test.pl +++ b/TAO/tests/GIOP_Fragments/Java_Big_Reply/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; use Config; sub which { diff --git a/TAO/tests/GIOP_Fragments/Java_Big_Request/run_test.pl b/TAO/tests/GIOP_Fragments/Java_Big_Request/run_test.pl index e8514914409..97cf96123e7 100755 --- a/TAO/tests/GIOP_Fragments/Java_Big_Request/run_test.pl +++ b/TAO/tests/GIOP_Fragments/Java_Big_Request/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl b/TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl index c8c8761853f..1fd9c3c7da3 100755 --- a/TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl +++ b/TAO/tests/GIOP_Fragments/PMB_With_Fragments/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Hang_Shutdown/run_test.pl b/TAO/tests/Hang_Shutdown/run_test.pl index 9fbc65b65ec..0a7064d65b4 100755 --- a/TAO/tests/Hang_Shutdown/run_test.pl +++ b/TAO/tests/Hang_Shutdown/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Hello/run_test.pl b/TAO/tests/Hello/run_test.pl index a0fdda9e00f..d4110fcaef3 100755 --- a/TAO/tests/Hello/run_test.pl +++ b/TAO/tests/Hello/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/ICMG_Any_Bug/run_test.pl b/TAO/tests/ICMG_Any_Bug/run_test.pl index 8c0d02aecd2..113a0f316a0 100755 --- a/TAO/tests/ICMG_Any_Bug/run_test.pl +++ b/TAO/tests/ICMG_Any_Bug/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/IDL_Test/run_test.pl b/TAO/tests/IDL_Test/run_test.pl index 09a7de77eee..2f0da995656 100755 --- a/TAO/tests/IDL_Test/run_test.pl +++ b/TAO/tests/IDL_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/IORManipulation/run_test.pl b/TAO/tests/IORManipulation/run_test.pl index dcf092e17cd..b68b78b6af5 100755 --- a/TAO/tests/IORManipulation/run_test.pl +++ b/TAO/tests/IORManipulation/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/IOR_Endpoint_Hostnames/run_test.pl b/TAO/tests/IOR_Endpoint_Hostnames/run_test.pl index e979bf853bc..50ebf1fdd0c 100755 --- a/TAO/tests/IOR_Endpoint_Hostnames/run_test.pl +++ b/TAO/tests/IOR_Endpoint_Hostnames/run_test.pl @@ -17,7 +17,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # and indicates whether or not that permutation FAILed. # -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; use Sys::Hostname; diff --git a/TAO/tests/IPV6/run_test.pl b/TAO/tests/IPV6/run_test.pl index 82d3ef36246..5fd05c3d071 100755 --- a/TAO/tests/IPV6/run_test.pl +++ b/TAO/tests/IPV6/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/InterOp-Naming/run_test.pl b/TAO/tests/InterOp-Naming/run_test.pl index 25be880b026..6146cd69acf 100755 --- a/TAO/tests/InterOp-Naming/run_test.pl +++ b/TAO/tests/InterOp-Naming/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $TARGETHOSTNAME = "localhost"; diff --git a/TAO/tests/Leader_Followers/run_test.pl b/TAO/tests/Leader_Followers/run_test.pl index d083e09d241..17e87c6a4b2 100755 --- a/TAO/tests/Leader_Followers/run_test.pl +++ b/TAO/tests/Leader_Followers/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/LongUpcalls/run_test.pl b/TAO/tests/LongUpcalls/run_test.pl index c02f3c6b708..96072f5c669 100755 --- a/TAO/tests/LongUpcalls/run_test.pl +++ b/TAO/tests/LongUpcalls/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/MProfile_Connection_Timeout/run_test.pl b/TAO/tests/MProfile_Connection_Timeout/run_test.pl index b0eaed5b425..9c8a64558ba 100755 --- a/TAO/tests/MProfile_Connection_Timeout/run_test.pl +++ b/TAO/tests/MProfile_Connection_Timeout/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile1 = PerlACE::LocalFile ("server1.ior"); diff --git a/TAO/tests/MT_BiDir/run_test.pl b/TAO/tests/MT_BiDir/run_test.pl index 7187d34fcb9..968afc2cbdc 100755 --- a/TAO/tests/MT_BiDir/run_test.pl +++ b/TAO/tests/MT_BiDir/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/MT_Client/run_test.pl b/TAO/tests/MT_Client/run_test.pl index faf34e8312e..75e9d17ff21 100755 --- a/TAO/tests/MT_Client/run_test.pl +++ b/TAO/tests/MT_Client/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $client_conf = PerlACE::LocalFile ("client.global$PerlACE::svcconf_ext"); diff --git a/TAO/tests/MT_Server/run_test.pl b/TAO/tests/MT_Server/run_test.pl index f806a1750f7..b2c27a464e4 100755 --- a/TAO/tests/MT_Server/run_test.pl +++ b/TAO/tests/MT_Server/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/MT_Timeout/run_test.pl b/TAO/tests/MT_Timeout/run_test.pl index b666399759a..091ab203d96 100755 --- a/TAO/tests/MT_Timeout/run_test.pl +++ b/TAO/tests/MT_Timeout/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Multiple/run_test.pl b/TAO/tests/Multiple/run_test.pl index 098a13bb93b..f4a9366f2a9 100755 --- a/TAO/tests/Multiple/run_test.pl +++ b/TAO/tests/Multiple/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Multiple_Inheritance/run_test.pl b/TAO/tests/Multiple_Inheritance/run_test.pl index 2af5c5f4d62..e9487cd1460 100755 --- a/TAO/tests/Multiple_Inheritance/run_test.pl +++ b/TAO/tests/Multiple_Inheritance/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Muxed_GIOP_Versions/run_test.pl b/TAO/tests/Muxed_GIOP_Versions/run_test.pl index 21ba72cf028..6a85e18728d 100755 --- a/TAO/tests/Muxed_GIOP_Versions/run_test.pl +++ b/TAO/tests/Muxed_GIOP_Versions/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Muxing/run_test.pl b/TAO/tests/Muxing/run_test.pl index b9cf425b774..32264a0bf51 100755 --- a/TAO/tests/Muxing/run_test.pl +++ b/TAO/tests/Muxing/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Native_Exceptions/run_test.pl b/TAO/tests/Native_Exceptions/run_test.pl index 7028882d0f3..b5d574f8003 100755 --- a/TAO/tests/Native_Exceptions/run_test.pl +++ b/TAO/tests/Native_Exceptions/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl b/TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl index 04ef4d5362e..7f765949bfa 100755 --- a/TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl +++ b/TAO/tests/NestedUpcall/MT_Client_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/NestedUpcall/Simple/run_test.pl b/TAO/tests/NestedUpcall/Simple/run_test.pl index 3f272e45fda..0987f38fbb4 100755 --- a/TAO/tests/NestedUpcall/Simple/run_test.pl +++ b/TAO/tests/NestedUpcall/Simple/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/NestedUpcall/Triangle_Test/run_test.pl b/TAO/tests/NestedUpcall/Triangle_Test/run_test.pl index 162b73124ad..bce3901f457 100755 --- a/TAO/tests/NestedUpcall/Triangle_Test/run_test.pl +++ b/TAO/tests/NestedUpcall/Triangle_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Nested_Event_Loop/run_test.pl b/TAO/tests/Nested_Event_Loop/run_test.pl index df9c649b7f0..bf69766f18d 100755 --- a/TAO/tests/Nested_Event_Loop/run_test.pl +++ b/TAO/tests/Nested_Event_Loop/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Nested_Upcall_Crash/run_test.pl b/TAO/tests/Nested_Upcall_Crash/run_test.pl index 8546ce10c19..bc8d423012c 100755 --- a/TAO/tests/Nested_Upcall_Crash/run_test.pl +++ b/TAO/tests/Nested_Upcall_Crash/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/No_Server_MT_Connect_Test/run_test.pl b/TAO/tests/No_Server_MT_Connect_Test/run_test.pl index 0b64a248eec..9ecaab8edb9 100755 --- a/TAO/tests/No_Server_MT_Connect_Test/run_test.pl +++ b/TAO/tests/No_Server_MT_Connect_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/OBV/Any/run_test.pl b/TAO/tests/OBV/Any/run_test.pl index d7e953d0896..7977d5ee840 100755 --- a/TAO/tests/OBV/Any/run_test.pl +++ b/TAO/tests/OBV/Any/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; @@ -16,7 +16,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # This is a Perl script that runs all Naming Service tests. It starts # all the servers and clients as necessary. -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/OBV/Collocated/Forward/run_test.pl b/TAO/tests/OBV/Collocated/Forward/run_test.pl index 04b35aa1182..d8b5416be32 100755 --- a/TAO/tests/OBV/Collocated/Forward/run_test.pl +++ b/TAO/tests/OBV/Collocated/Forward/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/OBV/Factory/run_test.pl b/TAO/tests/OBV/Factory/run_test.pl index d7e953d0896..7977d5ee840 100755 --- a/TAO/tests/OBV/Factory/run_test.pl +++ b/TAO/tests/OBV/Factory/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; @@ -16,7 +16,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # This is a Perl script that runs all Naming Service tests. It starts # all the servers and clients as necessary. -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/OBV/Forward/run_test.pl b/TAO/tests/OBV/Forward/run_test.pl index 4424f402e68..b91259ec509 100755 --- a/TAO/tests/OBV/Forward/run_test.pl +++ b/TAO/tests/OBV/Forward/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/OBV/Simple/run_test.pl b/TAO/tests/OBV/Simple/run_test.pl index 3a125c5703c..839ff380816 100755 --- a/TAO/tests/OBV/Simple/run_test.pl +++ b/TAO/tests/OBV/Simple/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/OBV/Supports/run_test.pl b/TAO/tests/OBV/Supports/run_test.pl index f871c5cfade..3dc8bb79ea3 100755 --- a/TAO/tests/OBV/Supports/run_test.pl +++ b/TAO/tests/OBV/Supports/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/OBV/TC_Alignment/run_test.pl b/TAO/tests/OBV/TC_Alignment/run_test.pl index 3d33b4e9db5..d24942b316c 100755 --- a/TAO/tests/OBV/TC_Alignment/run_test.pl +++ b/TAO/tests/OBV/TC_Alignment/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; @@ -16,7 +16,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # This is a Perl script that runs all Naming Service tests. It starts # all the servers and clients as necessary. -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/OBV/Truncatable/run_test.pl b/TAO/tests/OBV/Truncatable/run_test.pl index 5a0f4d990f9..f22d50818af 100755 --- a/TAO/tests/OBV/Truncatable/run_test.pl +++ b/TAO/tests/OBV/Truncatable/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; @@ -16,7 +16,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # This is a Perl script that runs all Naming Service tests. It starts # all the servers and clients as necessary. -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/OBV/ValueBox/run_test.pl b/TAO/tests/OBV/ValueBox/run_test.pl index de69f709455..fee5bc7bc29 100755 --- a/TAO/tests/OBV/ValueBox/run_test.pl +++ b/TAO/tests/OBV/ValueBox/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/ORB_Local_Config/Bug_1459/run_test.pl b/TAO/tests/ORB_Local_Config/Bug_1459/run_test.pl index 2b7f1395785..672625fa515 100755 --- a/TAO/tests/ORB_Local_Config/Bug_1459/run_test.pl +++ b/TAO/tests/ORB_Local_Config/Bug_1459/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; sub add_path { diff --git a/TAO/tests/ORB_Local_Config/Bunch/run_test.pl b/TAO/tests/ORB_Local_Config/Bunch/run_test.pl index 2b7f1395785..672625fa515 100755 --- a/TAO/tests/ORB_Local_Config/Bunch/run_test.pl +++ b/TAO/tests/ORB_Local_Config/Bunch/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; sub add_path { diff --git a/TAO/tests/ORB_Local_Config/Separation/run_test.pl b/TAO/tests/ORB_Local_Config/Separation/run_test.pl index 2b7f1395785..672625fa515 100755 --- a/TAO/tests/ORB_Local_Config/Separation/run_test.pl +++ b/TAO/tests/ORB_Local_Config/Separation/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; sub add_path { diff --git a/TAO/tests/ORB_Local_Config/Service_Dependency/run_test.pl b/TAO/tests/ORB_Local_Config/Service_Dependency/run_test.pl index 2b7f1395785..672625fa515 100755 --- a/TAO/tests/ORB_Local_Config/Service_Dependency/run_test.pl +++ b/TAO/tests/ORB_Local_Config/Service_Dependency/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; sub add_path { diff --git a/TAO/tests/ORB_Local_Config/Shared/run_test.pl b/TAO/tests/ORB_Local_Config/Shared/run_test.pl index 2b7f1395785..672625fa515 100755 --- a/TAO/tests/ORB_Local_Config/Shared/run_test.pl +++ b/TAO/tests/ORB_Local_Config/Shared/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; sub add_path { diff --git a/TAO/tests/ORB_Local_Config/Simple/run_test.pl b/TAO/tests/ORB_Local_Config/Simple/run_test.pl index 2b7f1395785..672625fa515 100755 --- a/TAO/tests/ORB_Local_Config/Simple/run_test.pl +++ b/TAO/tests/ORB_Local_Config/Simple/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; sub add_path { diff --git a/TAO/tests/ORB_Local_Config/Two_DLL_ORB/run_test.pl b/TAO/tests/ORB_Local_Config/Two_DLL_ORB/run_test.pl index 7e0af25173b..13a64419ed2 100755 --- a/TAO/tests/ORB_Local_Config/Two_DLL_ORB/run_test.pl +++ b/TAO/tests/ORB_Local_Config/Two_DLL_ORB/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; sub add_path { diff --git a/TAO/tests/ORB_destroy/run_test.pl b/TAO/tests/ORB_destroy/run_test.pl index 9b13b6bcad8..e1849d14abb 100755 --- a/TAO/tests/ORB_destroy/run_test.pl +++ b/TAO/tests/ORB_destroy/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/ORB_init/Portspan/run_test.pl b/TAO/tests/ORB_init/Portspan/run_test.pl index ca71f02e801..22184d41013 100755 --- a/TAO/tests/ORB_init/Portspan/run_test.pl +++ b/TAO/tests/ORB_init/Portspan/run_test.pl @@ -4,7 +4,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' & eval 'exec perl -S $0 $argv:q' if 0; -use lib "../../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; require ACEutils; diff --git a/TAO/tests/ORB_init/run_test.pl b/TAO/tests/ORB_init/run_test.pl index cab935271f0..658e4197806 100755 --- a/TAO/tests/ORB_init/run_test.pl +++ b/TAO/tests/ORB_init/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/ORB_shutdown/run_test.pl b/TAO/tests/ORB_shutdown/run_test.pl index a7df75abd33..3c0797c15aa 100755 --- a/TAO/tests/ORB_shutdown/run_test.pl +++ b/TAO/tests/ORB_shutdown/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; unlink $iorfile; diff --git a/TAO/tests/ORT/run_test.pl b/TAO/tests/ORT/run_test.pl index e903275dc3c..ad8aaaf851e 100755 --- a/TAO/tests/ORT/run_test.pl +++ b/TAO/tests/ORT/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Object_Loader/run_test.pl b/TAO/tests/Object_Loader/run_test.pl index 5cc6f2cb6b1..a64f5db6b2c 100755 --- a/TAO/tests/Object_Loader/run_test.pl +++ b/TAO/tests/Object_Loader/run_test.pl @@ -7,7 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use English; -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if ($OSNAME eq "MSWin32") { diff --git a/TAO/tests/Objref_Sequence_Test/run_test.pl b/TAO/tests/Objref_Sequence_Test/run_test.pl index 47ca2a0dba5..fe9884a87e5 100755 --- a/TAO/tests/Objref_Sequence_Test/run_test.pl +++ b/TAO/tests/Objref_Sequence_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/OctetSeq/run_test.pl b/TAO/tests/OctetSeq/run_test.pl index 310ec99245f..ab4f42042bb 100755 --- a/TAO/tests/OctetSeq/run_test.pl +++ b/TAO/tests/OctetSeq/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/OctetSeq/run_test1.pl b/TAO/tests/OctetSeq/run_test1.pl index 501ad0b235a..39a654a6b1d 100755 --- a/TAO/tests/OctetSeq/run_test1.pl +++ b/TAO/tests/OctetSeq/run_test1.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/OctetSeq/run_test2.pl b/TAO/tests/OctetSeq/run_test2.pl index 0b6849e3ac8..2cdd88b1f34 100755 --- a/TAO/tests/OctetSeq/run_test2.pl +++ b/TAO/tests/OctetSeq/run_test2.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Ondemand_Write/run_test.pl b/TAO/tests/Ondemand_Write/run_test.pl index 023e5521bca..4e94f7bab19 100644 --- a/TAO/tests/Ondemand_Write/run_test.pl +++ b/TAO/tests/Ondemand_Write/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Oneway_Buffering/run_buffer_size.pl b/TAO/tests/Oneway_Buffering/run_buffer_size.pl index 065f17c1d93..3e8db4fdc66 100755 --- a/TAO/tests/Oneway_Buffering/run_buffer_size.pl +++ b/TAO/tests/Oneway_Buffering/run_buffer_size.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/Oneway_Buffering/run_message_count.pl b/TAO/tests/Oneway_Buffering/run_message_count.pl index 614b25b54ff..949a61e5c62 100755 --- a/TAO/tests/Oneway_Buffering/run_message_count.pl +++ b/TAO/tests/Oneway_Buffering/run_message_count.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/Oneway_Buffering/run_test.pl b/TAO/tests/Oneway_Buffering/run_test.pl index c753bc938c8..b58853ec49c 100755 --- a/TAO/tests/Oneway_Buffering/run_test.pl +++ b/TAO/tests/Oneway_Buffering/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/Oneway_Buffering/run_timeout.pl b/TAO/tests/Oneway_Buffering/run_timeout.pl index 4f8bbe2fde3..da28486e145 100755 --- a/TAO/tests/Oneway_Buffering/run_timeout.pl +++ b/TAO/tests/Oneway_Buffering/run_timeout.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/Oneway_Buffering/run_timeout_reactive.pl b/TAO/tests/Oneway_Buffering/run_timeout_reactive.pl index f91953726d9..d5fd87fe65c 100755 --- a/TAO/tests/Oneway_Buffering/run_timeout_reactive.pl +++ b/TAO/tests/Oneway_Buffering/run_timeout_reactive.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $admin_iorfile = PerlACE::LocalFile ("admin.ior"); diff --git a/TAO/tests/Oneways_Invoking_Twoways/run_test.pl b/TAO/tests/Oneways_Invoking_Twoways/run_test.pl index 8c885c7c88b..b4bf53c5ac0 100755 --- a/TAO/tests/Oneways_Invoking_Twoways/run_test.pl +++ b/TAO/tests/Oneways_Invoking_Twoways/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Oneways_Invoking_Twoways/run_test_svc.pl b/TAO/tests/Oneways_Invoking_Twoways/run_test_svc.pl index 387088db924..c74fd628f5c 100755 --- a/TAO/tests/Oneways_Invoking_Twoways/run_test_svc.pl +++ b/TAO/tests/Oneways_Invoking_Twoways/run_test_svc.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Optimized_Connection/run_test.pl b/TAO/tests/Optimized_Connection/run_test.pl index 4ba18d9096c..31f814d9d19 100755 --- a/TAO/tests/Optimized_Connection/run_test.pl +++ b/TAO/tests/Optimized_Connection/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("oc.ior"); diff --git a/TAO/tests/POA/Bug_2511_Regression/run_test.pl b/TAO/tests/POA/Bug_2511_Regression/run_test.pl index 2fa2e079325..7b9d78497d9 100755 --- a/TAO/tests/POA/Bug_2511_Regression/run_test.pl +++ b/TAO/tests/POA/Bug_2511_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/Current/run_test.pl b/TAO/tests/POA/Current/run_test.pl index 1edac4e229e..81b478cb5fd 100755 --- a/TAO/tests/POA/Current/run_test.pl +++ b/TAO/tests/POA/Current/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/Deactivate_Object/run_test.pl b/TAO/tests/POA/Deactivate_Object/run_test.pl index 46ebddc873c..f8a701a6491 100755 --- a/TAO/tests/POA/Deactivate_Object/run_test.pl +++ b/TAO/tests/POA/Deactivate_Object/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/POA/Default_Servant/run_test.pl b/TAO/tests/POA/Default_Servant/run_test.pl index 2ed048478c7..f5a1a703f22 100755 --- a/TAO/tests/POA/Default_Servant/run_test.pl +++ b/TAO/tests/POA/Default_Servant/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/EndpointPolicy/run_test.pl b/TAO/tests/POA/EndpointPolicy/run_test.pl index 1e8f3904c4e..66ef426c740 100755 --- a/TAO/tests/POA/EndpointPolicy/run_test.pl +++ b/TAO/tests/POA/EndpointPolicy/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/POA/Etherealization/run_test.pl b/TAO/tests/POA/Etherealization/run_test.pl index b5adebe1007..5682c390c28 100755 --- a/TAO/tests/POA/Etherealization/run_test.pl +++ b/TAO/tests/POA/Etherealization/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/Excessive_Object_Deactivations/run_test.pl b/TAO/tests/POA/Excessive_Object_Deactivations/run_test.pl index 40272f8e2f5..c9ae4f2e2f6 100755 --- a/TAO/tests/POA/Excessive_Object_Deactivations/run_test.pl +++ b/TAO/tests/POA/Excessive_Object_Deactivations/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/Identity/run_test.pl b/TAO/tests/POA/Identity/run_test.pl index dc23f38eeb4..2bc6cf92dbf 100755 --- a/TAO/tests/POA/Identity/run_test.pl +++ b/TAO/tests/POA/Identity/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/MT_Servant_Locator/run_test.pl b/TAO/tests/POA/MT_Servant_Locator/run_test.pl index bf3d2c7ee81..f079a6c84e0 100755 --- a/TAO/tests/POA/MT_Servant_Locator/run_test.pl +++ b/TAO/tests/POA/MT_Servant_Locator/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/Nested_Non_Servant_Upcalls/run_test.pl b/TAO/tests/POA/Nested_Non_Servant_Upcalls/run_test.pl index 1e3f3eb4a31..2240ead06a4 100755 --- a/TAO/tests/POA/Nested_Non_Servant_Upcalls/run_test.pl +++ b/TAO/tests/POA/Nested_Non_Servant_Upcalls/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/Non_Servant_Upcalls/run_test.pl b/TAO/tests/POA/Non_Servant_Upcalls/run_test.pl index fe15c9f87f5..0b3e26cab35 100755 --- a/TAO/tests/POA/Non_Servant_Upcalls/run_test.pl +++ b/TAO/tests/POA/Non_Servant_Upcalls/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/Object_Reactivation/run_test.pl b/TAO/tests/POA/Object_Reactivation/run_test.pl index d4a3a6d1fc5..eb0a88a4d08 100755 --- a/TAO/tests/POA/Object_Reactivation/run_test.pl +++ b/TAO/tests/POA/Object_Reactivation/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/POAManagerFactory/run_test.pl b/TAO/tests/POA/POAManagerFactory/run_test.pl index 39be0d05e74..2b5a382229d 100755 --- a/TAO/tests/POA/POAManagerFactory/run_test.pl +++ b/TAO/tests/POA/POAManagerFactory/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/POA_Destruction/run_test.pl b/TAO/tests/POA/POA_Destruction/run_test.pl index 8730e4c78dd..5cd3b463cf8 100755 --- a/TAO/tests/POA/POA_Destruction/run_test.pl +++ b/TAO/tests/POA/POA_Destruction/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/Persistent_ID/run_test.pl b/TAO/tests/POA/Persistent_ID/run_test.pl index b00f3f38c86..2b0927ddfe9 100755 --- a/TAO/tests/POA/Persistent_ID/run_test.pl +++ b/TAO/tests/POA/Persistent_ID/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/POA/Policies/run_test.pl b/TAO/tests/POA/Policies/run_test.pl index 8c87f1f6805..03c90ceff0b 100755 --- a/TAO/tests/POA/Policies/run_test.pl +++ b/TAO/tests/POA/Policies/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/Reference_Counting/run_test.pl b/TAO/tests/POA/Reference_Counting/run_test.pl index 46ebddc873c..f8a701a6491 100755 --- a/TAO/tests/POA/Reference_Counting/run_test.pl +++ b/TAO/tests/POA/Reference_Counting/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/POA/Single_Threaded_POA/run_test.pl b/TAO/tests/POA/Single_Threaded_POA/run_test.pl index c84a9db2a34..1c248f88fe6 100755 --- a/TAO/tests/POA/Single_Threaded_POA/run_test.pl +++ b/TAO/tests/POA/Single_Threaded_POA/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/POA/wait_for_completion/run_test.pl b/TAO/tests/POA/wait_for_completion/run_test.pl index 515cd528d22..4bbabc6fbfc 100755 --- a/TAO/tests/POA/wait_for_completion/run_test.pl +++ b/TAO/tests/POA/wait_for_completion/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/Parallel_Connect_Strategy/run_test.pl b/TAO/tests/Parallel_Connect_Strategy/run_test.pl index ca4b3805da4..b76d7659183 100755 --- a/TAO/tests/Parallel_Connect_Strategy/run_test.pl +++ b/TAO/tests/Parallel_Connect_Strategy/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("altiiop.ior"); diff --git a/TAO/tests/Param_Test/run_test.pl b/TAO/tests/Param_Test/run_test.pl index 9b3b96bc124..5da4699f054 100755 --- a/TAO/tests/Param_Test/run_test.pl +++ b/TAO/tests/Param_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Permanent_Forward/run_test.pl b/TAO/tests/Permanent_Forward/run_test.pl index 60c2fb9ac3d..6d14a3da884 100755 --- a/TAO/tests/Permanent_Forward/run_test.pl +++ b/TAO/tests/Permanent_Forward/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/Policies/run_test.pl b/TAO/tests/Policies/run_test.pl index e1c112bf13d..87427de38b8 100755 --- a/TAO/tests/Policies/run_test.pl +++ b/TAO/tests/Policies/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $threads = '10'; diff --git a/TAO/tests/Portable_Interceptors/AMI/run_test.pl b/TAO/tests/Portable_Interceptors/AMI/run_test.pl index 651271d4d03..a37f4868f10 100755 --- a/TAO/tests/Portable_Interceptors/AMI/run_test.pl +++ b/TAO/tests/Portable_Interceptors/AMI/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Portable_Interceptors/AdvSlot/run_test.pl b/TAO/tests/Portable_Interceptors/AdvSlot/run_test.pl index 2cfe882b1b5..0493f6e38a8 100755 --- a/TAO/tests/Portable_Interceptors/AdvSlot/run_test.pl +++ b/TAO/tests/Portable_Interceptors/AdvSlot/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Portable_Interceptors/AdvSlotDblCpy/run_test.pl b/TAO/tests/Portable_Interceptors/AdvSlotDblCpy/run_test.pl index 6adfc99fd7b..b71142646b0 100755 --- a/TAO/tests/Portable_Interceptors/AdvSlotDblCpy/run_test.pl +++ b/TAO/tests/Portable_Interceptors/AdvSlotDblCpy/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Portable_Interceptors/AdvSlotExt/run_test.pl b/TAO/tests/Portable_Interceptors/AdvSlotExt/run_test.pl index 2cfe882b1b5..0493f6e38a8 100755 --- a/TAO/tests/Portable_Interceptors/AdvSlotExt/run_test.pl +++ b/TAO/tests/Portable_Interceptors/AdvSlotExt/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Portable_Interceptors/Benchmark/run_test.pl b/TAO/tests/Portable_Interceptors/Benchmark/run_test.pl index 32b233a0ed9..3db12f46a72 100755 --- a/TAO/tests/Portable_Interceptors/Benchmark/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Benchmark/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Portable_Interceptors/Bug_1559/run_test.pl b/TAO/tests/Portable_Interceptors/Bug_1559/run_test.pl index fa204e17d8c..0c844fbab03 100755 --- a/TAO/tests/Portable_Interceptors/Bug_1559/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Bug_1559/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Portable_Interceptors/Bug_2088/run_test.pl b/TAO/tests/Portable_Interceptors/Bug_2088/run_test.pl index 6cbfb81a45c..a9f35114c58 100755 --- a/TAO/tests/Portable_Interceptors/Bug_2088/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Bug_2088/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/Portable_Interceptors/Bug_2510_Regression/run_test.pl b/TAO/tests/Portable_Interceptors/Bug_2510_Regression/run_test.pl index fa204e17d8c..0c844fbab03 100755 --- a/TAO/tests/Portable_Interceptors/Bug_2510_Regression/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Bug_2510_Regression/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Portable_Interceptors/Collocated/Dynamic/run_test.pl b/TAO/tests/Portable_Interceptors/Collocated/Dynamic/run_test.pl index 011ef650c65..1f521f276eb 100755 --- a/TAO/tests/Portable_Interceptors/Collocated/Dynamic/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Collocated/Dynamic/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Portable_Interceptors/Collocated/Service_Context_Manipulation/run_test.pl b/TAO/tests/Portable_Interceptors/Collocated/Service_Context_Manipulation/run_test.pl index b639e4068e3..82632026a0d 100755 --- a/TAO/tests/Portable_Interceptors/Collocated/Service_Context_Manipulation/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Collocated/Service_Context_Manipulation/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/Portable_Interceptors/Dynamic/run_test.pl b/TAO/tests/Portable_Interceptors/Dynamic/run_test.pl index b974ed8a4be..72dbbde1fe4 100755 --- a/TAO/tests/Portable_Interceptors/Dynamic/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Dynamic/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Portable_Interceptors/ForwardRequest/run_test.pl b/TAO/tests/Portable_Interceptors/ForwardRequest/run_test.pl index 79926e14db6..d8e2b3730eb 100755 --- a/TAO/tests/Portable_Interceptors/ForwardRequest/run_test.pl +++ b/TAO/tests/Portable_Interceptors/ForwardRequest/run_test.pl @@ -7,7 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $file1 = PerlACE::LocalFile ("test1.ior"); diff --git a/TAO/tests/Portable_Interceptors/ORB_Shutdown/run_test.pl b/TAO/tests/Portable_Interceptors/ORB_Shutdown/run_test.pl index 6c03ec53a45..4c2bce37aaa 100755 --- a/TAO/tests/Portable_Interceptors/ORB_Shutdown/run_test.pl +++ b/TAO/tests/Portable_Interceptors/ORB_Shutdown/run_test.pl @@ -7,7 +7,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $file = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/Portable_Interceptors/Processing_Mode_Policy/Collocated/run_test.pl b/TAO/tests/Portable_Interceptors/Processing_Mode_Policy/Collocated/run_test.pl index e877773b96e..f735449a7cc 100755 --- a/TAO/tests/Portable_Interceptors/Processing_Mode_Policy/Collocated/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Processing_Mode_Policy/Collocated/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; sub get_test_modes diff --git a/TAO/tests/Portable_Interceptors/Processing_Mode_Policy/Remote/run_test.pl b/TAO/tests/Portable_Interceptors/Processing_Mode_Policy/Remote/run_test.pl index b04af3c2968..b75e3b99bb6 100755 --- a/TAO/tests/Portable_Interceptors/Processing_Mode_Policy/Remote/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Processing_Mode_Policy/Remote/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; sub get_test_modes diff --git a/TAO/tests/Portable_Interceptors/Recursive_ORBInitializer/run_test.pl b/TAO/tests/Portable_Interceptors/Recursive_ORBInitializer/run_test.pl index 9a9a9db0c85..13e1a0fec8c 100755 --- a/TAO/tests/Portable_Interceptors/Recursive_ORBInitializer/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Recursive_ORBInitializer/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/Portable_Interceptors/Register_Initial_References/run_test.pl b/TAO/tests/Portable_Interceptors/Register_Initial_References/run_test.pl index 30bc0d981cf..6484616e7f6 100755 --- a/TAO/tests/Portable_Interceptors/Register_Initial_References/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Register_Initial_References/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/Portable_Interceptors/Service_Context_Manipulation/run_test.pl b/TAO/tests/Portable_Interceptors/Service_Context_Manipulation/run_test.pl index fa204e17d8c..0c844fbab03 100755 --- a/TAO/tests/Portable_Interceptors/Service_Context_Manipulation/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Service_Context_Manipulation/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Portable_Interceptors/Slot/run_test.pl b/TAO/tests/Portable_Interceptors/Slot/run_test.pl index f6cd92fdcf5..6a114e0b6cd 100755 --- a/TAO/tests/Portable_Interceptors/Slot/run_test.pl +++ b/TAO/tests/Portable_Interceptors/Slot/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/Queued_Message_Test/run_test.pl b/TAO/tests/Queued_Message_Test/run_test.pl index 20eafcf51bd..f299f289253 100755 --- a/TAO/tests/Queued_Message_Test/run_test.pl +++ b/TAO/tests/Queued_Message_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/Activate_Object_Multiple_ORBs/run_test.pl b/TAO/tests/RTCORBA/Activate_Object_Multiple_ORBs/run_test.pl index ea45e3da6a3..94ff362d8f5 100755 --- a/TAO/tests/RTCORBA/Activate_Object_Multiple_ORBs/run_test.pl +++ b/TAO/tests/RTCORBA/Activate_Object_Multiple_ORBs/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; my($T) = new PerlACE::Process ("test"); diff --git a/TAO/tests/RTCORBA/Banded_Connections/run_test.pl b/TAO/tests/RTCORBA/Banded_Connections/run_test.pl index 20bd0533f96..194a9d6d588 100755 --- a/TAO/tests/RTCORBA/Banded_Connections/run_test.pl +++ b/TAO/tests/RTCORBA/Banded_Connections/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/Client_Propagated/run_test.pl b/TAO/tests/RTCORBA/Client_Propagated/run_test.pl index 1f218402506..6364fd79116 100755 --- a/TAO/tests/RTCORBA/Client_Propagated/run_test.pl +++ b/TAO/tests/RTCORBA/Client_Propagated/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/Client_Protocol/run_test.pl b/TAO/tests/RTCORBA/Client_Protocol/run_test.pl index 9b548f0ff8b..2d301bace3c 100755 --- a/TAO/tests/RTCORBA/Client_Protocol/run_test.pl +++ b/TAO/tests/RTCORBA/Client_Protocol/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/Collocation/run_test.pl b/TAO/tests/RTCORBA/Collocation/run_test.pl index fe1e28e0b4a..46d8206fc43 100755 --- a/TAO/tests/RTCORBA/Collocation/run_test.pl +++ b/TAO/tests/RTCORBA/Collocation/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $continuous = ($^O eq 'hpux'); diff --git a/TAO/tests/RTCORBA/Destroy_Thread_Pool/run_test.pl b/TAO/tests/RTCORBA/Destroy_Thread_Pool/run_test.pl index 7aa95bf33c1..5da7912d505 100755 --- a/TAO/tests/RTCORBA/Destroy_Thread_Pool/run_test.pl +++ b/TAO/tests/RTCORBA/Destroy_Thread_Pool/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $continuous = ($^O eq 'hpux'); diff --git a/TAO/tests/RTCORBA/Dynamic_Thread_Pool/run_test.pl b/TAO/tests/RTCORBA/Dynamic_Thread_Pool/run_test.pl index 2059c01b04f..8c30a9b74e1 100644 --- a/TAO/tests/RTCORBA/Dynamic_Thread_Pool/run_test.pl +++ b/TAO/tests/RTCORBA/Dynamic_Thread_Pool/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $number_of_clients = 1; diff --git a/TAO/tests/RTCORBA/Explicit_Binding/run_test.pl b/TAO/tests/RTCORBA/Explicit_Binding/run_test.pl index 288bd3ddc2e..0c58e6b807a 100755 --- a/TAO/tests/RTCORBA/Explicit_Binding/run_test.pl +++ b/TAO/tests/RTCORBA/Explicit_Binding/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/Linear_Priority/run_test.pl b/TAO/tests/RTCORBA/Linear_Priority/run_test.pl index b5b844fcfa7..e7022f70bde 100755 --- a/TAO/tests/RTCORBA/Linear_Priority/run_test.pl +++ b/TAO/tests/RTCORBA/Linear_Priority/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl b/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl index 5e38104203f..6188bdd5a73 100755 --- a/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl +++ b/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/ORB_init/run_test.pl b/TAO/tests/RTCORBA/ORB_init/run_test.pl index 356ff8edb52..3f20a5b7483 100755 --- a/TAO/tests/RTCORBA/ORB_init/run_test.pl +++ b/TAO/tests/RTCORBA/ORB_init/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; print STDERR "\n********** RTCORBA ORB_init Unit Test **********\n\n"; diff --git a/TAO/tests/RTCORBA/Persistent_IOR/run_test.pl b/TAO/tests/RTCORBA/Persistent_IOR/run_test.pl index 5b066f419eb..da007903756 100755 --- a/TAO/tests/RTCORBA/Persistent_IOR/run_test.pl +++ b/TAO/tests/RTCORBA/Persistent_IOR/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/Policies/run_test.pl b/TAO/tests/RTCORBA/Policies/run_test.pl index 8c87f1f6805..03c90ceff0b 100755 --- a/TAO/tests/RTCORBA/Policies/run_test.pl +++ b/TAO/tests/RTCORBA/Policies/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; if (PerlACE::is_vxworks_test()) { diff --git a/TAO/tests/RTCORBA/Policy_Combinations/run_test.pl b/TAO/tests/RTCORBA/Policy_Combinations/run_test.pl index 0c424ce42f1..d36852652b7 100755 --- a/TAO/tests/RTCORBA/Policy_Combinations/run_test.pl +++ b/TAO/tests/RTCORBA/Policy_Combinations/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/Priority_Inversion_With_Bands/run_test.pl b/TAO/tests/RTCORBA/Priority_Inversion_With_Bands/run_test.pl index 1afb4f6f967..fe69e135062 100755 --- a/TAO/tests/RTCORBA/Priority_Inversion_With_Bands/run_test.pl +++ b/TAO/tests/RTCORBA/Priority_Inversion_With_Bands/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $server_static_threads = 1; diff --git a/TAO/tests/RTCORBA/Private_Connection/run_test.pl b/TAO/tests/RTCORBA/Private_Connection/run_test.pl index 537c5b0fca6..5ae2d22ba05 100755 --- a/TAO/tests/RTCORBA/Private_Connection/run_test.pl +++ b/TAO/tests/RTCORBA/Private_Connection/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTCORBA/Profile_And_Endpoint_Selection/run_test.pl b/TAO/tests/RTCORBA/Profile_And_Endpoint_Selection/run_test.pl index a58c5f6427c..94688ceb93e 100755 --- a/TAO/tests/RTCORBA/Profile_And_Endpoint_Selection/run_test.pl +++ b/TAO/tests/RTCORBA/Profile_And_Endpoint_Selection/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; use English; diff --git a/TAO/tests/RTCORBA/RTMutex/run_test.pl b/TAO/tests/RTCORBA/RTMutex/run_test.pl index c8815f69464..30ceabb45c4 100755 --- a/TAO/tests/RTCORBA/RTMutex/run_test.pl +++ b/TAO/tests/RTCORBA/RTMutex/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; print STDERR "\n********** RTCORBA RTMutex Unit Test **********\n\n"; diff --git a/TAO/tests/RTCORBA/Server_Declared/run_test.pl b/TAO/tests/RTCORBA/Server_Declared/run_test.pl index 8e70a8d879c..e62e6c8c8be 100755 --- a/TAO/tests/RTCORBA/Server_Declared/run_test.pl +++ b/TAO/tests/RTCORBA/Server_Declared/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile1 = PerlACE::LocalFile ("test1.ior"); diff --git a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl index 8921a85c6ec..44d7cab94ba 100755 --- a/TAO/tests/RTCORBA/Server_Protocol/run_test.pl +++ b/TAO/tests/RTCORBA/Server_Protocol/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/RTCORBA/Thread_Pool/run_test.pl b/TAO/tests/RTCORBA/Thread_Pool/run_test.pl index 2dcbc7246bf..2ef990c01ce 100755 --- a/TAO/tests/RTCORBA/Thread_Pool/run_test.pl +++ b/TAO/tests/RTCORBA/Thread_Pool/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $number_of_clients = 4; diff --git a/TAO/tests/RTScheduling/Current/run_test.pl b/TAO/tests/RTScheduling/Current/run_test.pl index 0b4a6b57f9d..9252b556660 100755 --- a/TAO/tests/RTScheduling/Current/run_test.pl +++ b/TAO/tests/RTScheduling/Current/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTScheduling/DT_Spawn/run_test.pl b/TAO/tests/RTScheduling/DT_Spawn/run_test.pl index bd859750add..cfb822b7dbd 100755 --- a/TAO/tests/RTScheduling/DT_Spawn/run_test.pl +++ b/TAO/tests/RTScheduling/DT_Spawn/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl b/TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl index 2e3bec9cb61..0f3e9b2e022 100755 --- a/TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl +++ b/TAO/tests/RTScheduling/Scheduling_Interceptor/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; # amount of delay between running the servers diff --git a/TAO/tests/RTScheduling/Thread_Cancel/run_test.pl b/TAO/tests/RTScheduling/Thread_Cancel/run_test.pl index 7cef3fc4eef..c3764de37f7 100755 --- a/TAO/tests/RTScheduling/Thread_Cancel/run_test.pl +++ b/TAO/tests/RTScheduling/Thread_Cancel/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/RTScheduling/VoidData/run_test.pl b/TAO/tests/RTScheduling/VoidData/run_test.pl index ad6f3662a0e..64eeb425f67 100755 --- a/TAO/tests/RTScheduling/VoidData/run_test.pl +++ b/TAO/tests/RTScheduling/VoidData/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Reliable_Oneways/run_sync_none.pl b/TAO/tests/Reliable_Oneways/run_sync_none.pl index 6e36b4f6b12..9e0643a9fb6 100755 --- a/TAO/tests/Reliable_Oneways/run_sync_none.pl +++ b/TAO/tests/Reliable_Oneways/run_sync_none.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Reliable_Oneways/run_sync_with_server.pl b/TAO/tests/Reliable_Oneways/run_sync_with_server.pl index 8b1e7d2dff4..89a19200aa3 100755 --- a/TAO/tests/Reliable_Oneways/run_sync_with_server.pl +++ b/TAO/tests/Reliable_Oneways/run_sync_with_server.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Reliable_Oneways/run_sync_with_target.pl b/TAO/tests/Reliable_Oneways/run_sync_with_target.pl index 121718d76d0..641f343a35f 100755 --- a/TAO/tests/Reliable_Oneways/run_sync_with_target.pl +++ b/TAO/tests/Reliable_Oneways/run_sync_with_target.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Reliable_Oneways/run_sync_with_transport.pl b/TAO/tests/Reliable_Oneways/run_sync_with_transport.pl index 35f4604a4c8..9400c6644fb 100755 --- a/TAO/tests/Reliable_Oneways/run_sync_with_transport.pl +++ b/TAO/tests/Reliable_Oneways/run_sync_with_transport.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Reliable_Oneways/run_test.pl b/TAO/tests/Reliable_Oneways/run_test.pl index c762b9f4a58..939e1a27814 100755 --- a/TAO/tests/Reliable_Oneways/run_test.pl +++ b/TAO/tests/Reliable_Oneways/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Sequence_Unit_Tests/run_test.pl b/TAO/tests/Sequence_Unit_Tests/run_test.pl index d83f2c3e4af..81d5b478a43 100755 --- a/TAO/tests/Sequence_Unit_Tests/run_test.pl +++ b/TAO/tests/Sequence_Unit_Tests/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; use strict; diff --git a/TAO/tests/Servant_To_Reference_Test/run_test.pl b/TAO/tests/Servant_To_Reference_Test/run_test.pl index dd868e17e78..5fe5e66fd2c 100755 --- a/TAO/tests/Servant_To_Reference_Test/run_test.pl +++ b/TAO/tests/Servant_To_Reference_Test/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Server_Connection_Purging/run_test.pl b/TAO/tests/Server_Connection_Purging/run_test.pl index 4220bc5fc4f..c9bc9453e36 100755 --- a/TAO/tests/Server_Connection_Purging/run_test.pl +++ b/TAO/tests/Server_Connection_Purging/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Server_Leaks/run_test.pl b/TAO/tests/Server_Leaks/run_test.pl index 78d7361b657..d5146bbf956 100755 --- a/TAO/tests/Server_Leaks/run_test.pl +++ b/TAO/tests/Server_Leaks/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Server_Port_Zero/run_test.pl b/TAO/tests/Server_Port_Zero/run_test.pl index 422f0e4e3ee..eff8be545d9 100755 --- a/TAO/tests/Server_Port_Zero/run_test.pl +++ b/TAO/tests/Server_Port_Zero/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Single_Read/run_test.pl b/TAO/tests/Single_Read/run_test.pl index fc73e785a63..e4837b75540 100755 --- a/TAO/tests/Single_Read/run_test.pl +++ b/TAO/tests/Single_Read/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Smart_Proxies/Benchmark/run_test.pl b/TAO/tests/Smart_Proxies/Benchmark/run_test.pl index ff3e0d6b952..bf13ecc9aad 100755 --- a/TAO/tests/Smart_Proxies/Benchmark/run_test.pl +++ b/TAO/tests/Smart_Proxies/Benchmark/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Smart_Proxies/On_Demand/run_test.pl b/TAO/tests/Smart_Proxies/On_Demand/run_test.pl index 05bd093393b..b5e7daf392c 100755 --- a/TAO/tests/Smart_Proxies/On_Demand/run_test.pl +++ b/TAO/tests/Smart_Proxies/On_Demand/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Smart_Proxies/Policy/run_test.pl b/TAO/tests/Smart_Proxies/Policy/run_test.pl index 3b4812b86a7..c0879c38576 100755 --- a/TAO/tests/Smart_Proxies/Policy/run_test.pl +++ b/TAO/tests/Smart_Proxies/Policy/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Smart_Proxies/dtor/run_test.pl b/TAO/tests/Smart_Proxies/dtor/run_test.pl index c6e2ba1ddbf..8801b072ff1 100755 --- a/TAO/tests/Smart_Proxies/dtor/run_test.pl +++ b/TAO/tests/Smart_Proxies/dtor/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Smart_Proxies/run_test.pl b/TAO/tests/Smart_Proxies/run_test.pl index 9ce35f6d854..83d5dba52cf 100755 --- a/TAO/tests/Smart_Proxies/run_test.pl +++ b/TAO/tests/Smart_Proxies/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Stack_Recursion/run_test.pl b/TAO/tests/Stack_Recursion/run_test.pl index 9c66cd4a3e5..eff14fc2817 100755 --- a/TAO/tests/Stack_Recursion/run_test.pl +++ b/TAO/tests/Stack_Recursion/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Strategies/run_test.pl b/TAO/tests/Strategies/run_test.pl index 7b1e481357b..8f4a7e807f1 100755 --- a/TAO/tests/Strategies/run_test.pl +++ b/TAO/tests/Strategies/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Timed_Buffered_Oneways/run_test.pl b/TAO/tests/Timed_Buffered_Oneways/run_test.pl index b533838ee93..bf2638950c7 100755 --- a/TAO/tests/Timed_Buffered_Oneways/run_test.pl +++ b/TAO/tests/Timed_Buffered_Oneways/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib "../../../bin"; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("server.ior"); diff --git a/TAO/tests/Timeout/run_test.pl b/TAO/tests/Timeout/run_test.pl index dd503620fd3..4cffcf35568 100755 --- a/TAO/tests/Timeout/run_test.pl +++ b/TAO/tests/Timeout/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Two_Objects/run_test.pl b/TAO/tests/Two_Objects/run_test.pl index 9cb6615c5a4..ffc5376132f 100755 --- a/TAO/tests/Two_Objects/run_test.pl +++ b/TAO/tests/Two_Objects/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $iorfile = PerlACE::LocalFile ("test.ior"); diff --git a/TAO/tests/Typedef_String_Array/run_test.pl b/TAO/tests/Typedef_String_Array/run_test.pl index d2391bbf584..6771ba9f6ca 100755 --- a/TAO/tests/Typedef_String_Array/run_test.pl +++ b/TAO/tests/Typedef_String_Array/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/UNKNOWN_Exception/run_test.pl b/TAO/tests/UNKNOWN_Exception/run_test.pl index 9334b4edbd4..097ce952f2c 100755 --- a/TAO/tests/UNKNOWN_Exception/run_test.pl +++ b/TAO/tests/UNKNOWN_Exception/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; diff --git a/TAO/tests/Xt_Stopwatch/run_test.pl b/TAO/tests/Xt_Stopwatch/run_test.pl index 546d8c8b716..8251872df26 100755 --- a/TAO/tests/Xt_Stopwatch/run_test.pl +++ b/TAO/tests/Xt_Stopwatch/run_test.pl @@ -5,7 +5,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' # $Id$ # -*- perl -*- -use lib '../../../bin'; +use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; $status = 0; |