Get/Put file use non target specific files

1 files changed, 7 insertions, 9 deletions

diff --git a/ACE/tests/run_test.pl b/ACE/tests/run_test.pl
index f2a0d80a00e..2a4b891baa7 100755
--- a/ACE/tests/run_test.pl
+++ b/ACE/tests/run_test.pl
@@ -204,9 +204,8 @@ sub check_log ($)
     # found in the SSL subdirectory.
     local $the_program = basename($program);
     local $log = "log/".$the_program.$log_suffix;
-    local $target_log = $target->LocalFile ($log);
 
-    if ($target->GetFile ($target_log, $log) == -1) {
+    if ($target->GetFile ($log, $log) == -1) {
         print STDERR "ERROR: cannot retrieve file <$log>\n";
     }
 
@@ -453,20 +452,19 @@ my $target = PerlACE::TestTarget::create_target (1);
 $target->AddLibPath("$ENV{ACE_ROOT}/tests");
 
 # Put needed files in place for targets that require them.
-#
 # Service_Config_Test needs service config file.
-my $svc_conf_file = $target->LocalFile ("Service_Config_Test.conf");
-if ($target->PutFile ("Service_Config_Test.conf", $svc_conf_file) == -1) {
+my $svc_conf_file = "Service_Config_Test.conf";
+if ($target->PutFile ($svc_conf_file) == -1) {
     print STDERR "WARNING: Cannot send $svc_conf_file to target\n";
 }
 # Config_Test needs config ini file.
-my $conf_ini_file = $target->LocalFile ("Config_Test_Import_1.ini");
-if ($target->PutFile ("Config_Test_Import_1.ini", $conf_ini_file) == -1) {
+my $conf_ini_file = "Config_Test_Import_1.ini";
+if ($target->PutFile ($conf_ini_file) == -1) {
     print STDERR "WARNING: Cannot send $conf_ini_file to target\n";
 }
 # Service_Config_Stream_Test needs service config file.
-$svc_conf_file = $target->LocalFile ("Service_Config_Stream_Test.conf");
-if ($target->PutFile ("Service_Config_Stream_Test.conf", $svc_conf_file) == -1) {
+$svc_conf_file = "Service_Config_Stream_Test.conf";
+if ($target->PutFile ($svc_conf_file) == -1) {
     print STDERR "WARNING: Cannot send $svc_conf_file to target\n";
 }