diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-08-21 09:40:14 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-08-21 09:40:14 +0000 |
commit | ad590b6f96b61130656a9fa7542d5509c98336ab (patch) | |
tree | f1754bab6c4ba876c445e70eb58871a1f7c5bb62 /TAO/tests/Hello | |
parent | 3846014d2146539b88b27f47039317cb243f9db7 (diff) | |
download | ATCD-ad590b6f96b61130656a9fa7542d5509c98336ab.tar.gz |
Tue Aug 21 09:36:00 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/Hello')
-rwxr-xr-x | TAO/tests/Hello/run_test.pl | 5 |
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"); |