diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-11-12 13:59:35 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-11-12 13:59:35 +0000 |
commit | 6e55d7417b530b128dcbadcabb586742506a849f (patch) | |
tree | 6e51c3a9f5cb56d805156cdf133e5cd6d13dc88c /TAO/tests/Bug_2804_Regression | |
parent | 87b86cb0a187e26219fa1e3bccfb78e8075e30a0 (diff) | |
download | ATCD-6e55d7417b530b128dcbadcabb586742506a849f.tar.gz |
Mon Nov 12 13:59:21 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/Bug_2804_Regression')
-rwxr-xr-x | TAO/tests/Bug_2804_Regression/run_test.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/TAO/tests/Bug_2804_Regression/run_test.pl b/TAO/tests/Bug_2804_Regression/run_test.pl index 929281e6f9b..8def363eca2 100755 --- a/TAO/tests/Bug_2804_Regression/run_test.pl +++ b/TAO/tests/Bug_2804_Regression/run_test.pl @@ -10,13 +10,14 @@ use PerlACE::Run_Test; $status = 0; -$iorfile = PerlACE::LocalFile ("server.ior"); +$iorfilebase = "server.ior"; +$iorfile = PerlACE::LocalFile ("$iorfilebase"); unlink $iorfile; print STDERR "\n\n==== Bug 2804_Regression\n"; if (PerlACE::is_vxworks_test()) { - $SV = new PerlACE::ProcessVX ("server", "-o server.ior"); + $SV = new PerlACE::ProcessVX ("server", "-o $iorfilebase"); } else { $SV = new PerlACE::Process ("server", "-o $iorfile"); |