1 files changed, 10 insertions, 1 deletions
diff --git a/tests/Bug_3163_Regression/run_test.pl b/tests/Bug_3163_Regression/run_test.pl
index 57a4cf1d82a..fa73fd42065 100755
--- a/tests/Bug_3163_Regression/run_test.pl
+++ b/tests/Bug_3163_Regression/run_test.pl
@@ -21,13 +21,22 @@ my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 fail
 my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
 
 my $iorbase = "server.ior";
-my $svcconf = "server.conf";
 my $server_iorfile = $server->LocalFile ($iorbase);
+
+my $svcconf = "server.conf";
 my $server_svcconf = $server->LocalFile ($svcconf);
+
 my $client_iorfile = $client->LocalFile ($iorbase);
+
 $server->DeleteFile($iorbase);
 $client->DeleteFile($iorbase);
 
+if ($server->PutFile ($svcconf) == -1) {
+    print STDERR "ERROR: cannot set file <$server_svcconf>\n";
+    exit 1;
+}
+
+
 $SV = $server->CreateProcess ("server", "-ORBdebuglevel $debug_level -o $server_iorfile -ORBStdProfileComponents 0 -ORBSvcConf $server_svcconf");
 $CL = $client->CreateProcess ("client", "-v 131401 -k file://$client_iorfile");
 $server_status = $SV->Spawn ();