Tue Nov 18 12:07:33 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>

2 files changed, 9 insertions, 4 deletions

diff --git a/TAO/ChangeLog b/TAO/ChangeLog
index 186276fad8a..7dc79240fe7 100644
--- a/TAO/ChangeLog
+++ b/TAO/ChangeLog
@@ -1,3 +1,8 @@
+Tue Nov 18 12:07:33 UTC 2008  Johnny Willemsen  <jwillemsen@remedy.nl>
+
+        * tests/Bug_3108_Regression/run_test.pl:
+          Use the correct perl variable to delete the file
+
 Tue Nov 18 10:39:33 UTC 2008  Johnny Willemsen  <jwillemsen@remedy.nl>
 
         * TAO_IDL/be/be_helper.cpp:
diff --git a/TAO/tests/Bug_3108_Regression/run_test.pl b/TAO/tests/Bug_3108_Regression/run_test.pl
index 9c99aba2eb4..3ad3cc7b23a 100755
--- a/TAO/tests/Bug_3108_Regression/run_test.pl
+++ b/TAO/tests/Bug_3108_Regression/run_test.pl
@@ -27,8 +27,8 @@ my $target2 = PerlACE::TestTarget::create_target (2) || die "Create target 2 fai
 $iorbase = "server.ior";
 $iorfile1 = $target1->LocalFile ("$iorbase");
 $iorfile2 = $target2->LocalFile ("$iorbase");
-$target1->DeleteFile($iorfile);
-$target2->DeleteFile($iorfile);
+$target1->DeleteFile($iorbase);
+$target2->DeleteFile($iorbase);
 
 $SV = $target1->CreateProcess ("server", "$debug_opts_sv -ORBdebuglevel $debug_level -o $iorfile1");
 $CL = $target2->CreateProcess ("client", "$debug_opts_cl -ORBDebugLevel $debug_level -k file://$iorfile2");
@@ -64,7 +64,7 @@ if ($server != 0) {
 $target1->GetStderrLog();
 $target2->GetStderrLog();
 
-$target1->DeleteFile($iorfile);
-$target2->DeleteFile($iorfile);
+$target1->DeleteFile($iorbase);
+$target2->DeleteFile($iorbase);
 
 exit $status;