diff options
| author | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-11-11 19:56:30 +0000 |
|---|---|---|
| committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-11-11 19:56:30 +0000 |
| commit | 9c751e1ccca021941a5e9926d3c317293aa4f7c0 (patch) | |
| tree | 639b109834cf4aafbc1db80507bd15ac8e3ff7d6 /TAO/tests/Bug_2319_Regression | |
| parent | d573df30c762bd4e1ca742cc0ff7eac4ed4475ff (diff) | |
| download | ATCD-9c751e1ccca021941a5e9926d3c317293aa4f7c0.tar.gz | |
Sun Nov 11 19:55:21 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/tests/Bug_2319_Regression')
| -rwxr-xr-x | TAO/tests/Bug_2319_Regression/run_test.pl | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/TAO/tests/Bug_2319_Regression/run_test.pl b/TAO/tests/Bug_2319_Regression/run_test.pl index 708d658fe7c..76a29d0638c 100755 --- a/TAO/tests/Bug_2319_Regression/run_test.pl +++ b/TAO/tests/Bug_2319_Regression/run_test.pl @@ -10,12 +10,9 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; -if (PerlACE::is_vxworks_test()) { - $AMH = new PerlACE::ProcessVX ("server", ""); -} -else { - $AMH = new PerlACE::Process ("server", ""); -} +my $class = (PerlACE::is_vxworks_test() ? 'PerlACE::ProcessVX' : + 'PerlACE::Process'); +$AMH = new $class ("server"); # Run the AMH server. $AMH->Spawn (); |