1 files changed, 12 insertions, 3 deletions
diff --git a/tests/AMI/run_test.pl b/tests/AMI/run_test.pl
index 29fe59a71aa..c02a5175c5d 100755
--- a/tests/AMI/run_test.pl
+++ b/tests/AMI/run_test.pl
@@ -11,25 +11,28 @@ use PerlACE::TestTarget;
 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
 my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
 
-$client_conf = $client->LocalFile ("muxed$PerlACE::svcconf_ext");
 
 $server_debug_level = '0';
 $client_debug_level = '0';
 $iterations = '1';
 
+$conf_file = "muxed$PerlACE::svcconf_ext";
+
 foreach $i (@ARGV) {
     if ($i eq '-mux') {
-        $client_conf = $client->LocalFile ("muxed$PerlACE::svcconf_ext");
+        $conf_file = "muxed$PerlACE::svcconf_ext";
     }
     elsif ($i eq '-debug') {
         $server_debug_level = '1';
         $client_debug_level = '1';
     }
     elsif ($i eq '-exclusive') {
-        $client_conf = $client->LocalFile ("exclusive$PerlACE::svcconf_ext");
+        $conf_file = "exclusive$PerlACE::svcconf_ext";
     }
 }
 
+$client_conf = $client->LocalFile ($conf_file);
+
 my $iorbase = "server.ior";
 my $server_iorfile = $server->LocalFile ($iorbase);
 my $client_iorfile = $client->LocalFile ($iorbase);
@@ -61,6 +64,12 @@ if ($client->PutFile ($iorbase) == -1) {
     $SV->Kill (); $SV->TimedWait (1);
     exit 1;
 }
+# copy the configruation file.
+if ($client->PutFile ($conf_file) == -1) {
+    print STDERR "ERROR: cannot set file <$client_conf>\n";
+    $SV->Kill (); $SV->TimedWait (1);
+    exit 1;
+}
 
 $CL = $client->CreateProcess ("simple_client",
                               "-ORBsvcconf $client_conf "