diff options
Diffstat (limited to 'TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl')
| -rwxr-xr-x | TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl | 5 |
1 files changed, 3 insertions, 2 deletions
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 1f6905d4d44..2ccabdd6f4c 100755 --- a/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl +++ b/TAO/tests/RTCORBA/MT_Client_Protocol_Priority/run_test.pl @@ -17,7 +17,8 @@ if ($#ARGV >= 0 && $ARGV[0] eq '-q') { } # Test parameters. -$iorfile = PerlACE::LocalFile ("test.ior"); +$iorfilebase = "test.ior"; +$iorfile = PerlACE::LocalFile ("$iorfilebase"); $data_file = PerlACE::LocalFile ("test_run.data"); $debug_level = 1; @@ -58,7 +59,7 @@ $client_args = ."-a $priority1 -b $priority2 -e 1413566210 -f 0 -n $iterations"; if (PerlACE::is_vxworks_test()) { - $SV = new PerlACE::ProcessVX ("server", "-o test.ior $server_args"); + $SV = new PerlACE::ProcessVX ("server", "-o $iorfilebase $server_args"); } else { $SV = new PerlACE::Process ("server", "-o $iorfile $server_args"); |