1 files changed, 3 insertions, 2 deletions
diff --git a/TAO/tests/Hello/run_test.pl b/TAO/tests/Hello/run_test.pl
index d4110fcaef3..b2c4c956f2f 100755
--- a/TAO/tests/Hello/run_test.pl
+++ b/TAO/tests/Hello/run_test.pl
@@ -17,11 +17,12 @@ foreach $i (@ARGV) {
     } 
 }
 
-$iorfile = PerlACE::LocalFile ("server.ior");
+$iorbase = "server.ior";
+$iorfile = PerlACE::LocalFile ("$iorbase");
 unlink $iorfile;
 
 if (PerlACE::is_vxworks_test()) {
-    $SV = new PerlACE::ProcessVX ("server", "-ORBDebuglevel $debug_level -o server.ior");
+    $SV = new PerlACE::ProcessVX ("server", "-ORBDebuglevel $debug_level -o $iorbase");
 }
 else {
     $SV = new PerlACE::Process ("server", "-ORBdebuglevel $debug_level -o $iorfile");