diff options
Diffstat (limited to 'tests/MT_BiDir/run_test.pl')
-rwxr-xr-x | tests/MT_BiDir/run_test.pl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/tests/MT_BiDir/run_test.pl b/tests/MT_BiDir/run_test.pl index 1d7ba7e9b5b..4134c5f8e59 100755 --- a/tests/MT_BiDir/run_test.pl +++ b/tests/MT_BiDir/run_test.pl @@ -32,7 +32,14 @@ $client1->DeleteFile($iorbase); $client2->DeleteFile($iorbase); $client3->DeleteFile($iorbase); -my $server_conf = $server->LocalFile ("server$PerlACE::svcconf_ext"); +my $server_conf_base = "server$PerlACE::svcconf_ext"; +my $server_conf = $server->LocalFile ($server_conf_base); + +# Copy the configuration file to the target. +if ($server->PutFile ($server_conf_base) == -1) { + print STDERR "ERROR: cannot set file <$server_conf>\n"; + exit 1; +} $SV = $server->CreateProcess ("server", "-ORBdebuglevel $debug_level -ORBSvcConf $server_conf " . |