diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-07-25 07:51:25 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2007-07-25 07:51:25 +0000 |
commit | eee61126076092c8d8c2d83048580259035a290b (patch) | |
tree | f4a7876fb6600507374280377365dbcb33ae3d6a /TAO/examples/POA/FindPOA/run_test.pl | |
parent | a9c8618d00c22636081fcbda774c9426652bddfe (diff) | |
download | ATCD-eee61126076092c8d8c2d83048580259035a290b.tar.gz |
Wed Jul 25 07:50:23 UTC 2007 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'TAO/examples/POA/FindPOA/run_test.pl')
-rwxr-xr-x | TAO/examples/POA/FindPOA/run_test.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/TAO/examples/POA/FindPOA/run_test.pl b/TAO/examples/POA/FindPOA/run_test.pl index 3b048dafd55..494c5116169 100755 --- a/TAO/examples/POA/FindPOA/run_test.pl +++ b/TAO/examples/POA/FindPOA/run_test.pl @@ -8,7 +8,12 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' use lib "$ENV{ACE_ROOT}/bin"; use PerlACE::Run_Test; +if (PerlACE::is_vxworks_test()) { +$T = new PerlACE::ProcessVX ("FindPOA"); +} +else { $T = new PerlACE::Process ("FindPOA"); +} $test = $T->SpawnWaitKill ($PerlACE::wait_interval_for_process_creation); |