1 files changed, 8 insertions, 2 deletions
diff --git a/TAO/examples/POA/Reference_Counted_Servant/run_test.pl b/TAO/examples/POA/Reference_Counted_Servant/run_test.pl
index f83ff34b970..38c3a37edf3 100755
--- a/TAO/examples/POA/Reference_Counted_Servant/run_test.pl
+++ b/TAO/examples/POA/Reference_Counted_Servant/run_test.pl
@@ -8,7 +8,8 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
 use lib "$ENV{ACE_ROOT}/bin";
 use PerlACE::Run_Test;
 
-$iorfile = PerlACE::LocalFile ("poa.ior");
+$iorbase = "poa.ior";
+$iorfile = PerlACE::LocalFile ("$iorbase");
 
 $oneway = "";
 $iterations = 100;
@@ -44,7 +45,12 @@ for ($i = 0; $i <= $#ARGV; $i++) {
 
 unlink $iorfile;
 
-$SV = new PerlACE::Process ("server", "-f $iorfile $extra_args");
+if (PerlACE::is_vxworks_test()) {
+  $SV = new PerlACE::ProcessVX ("server", "-f $iorbase $extra_args");
+}
+else {
+  $SV = new PerlACE::Process ("server", "-f $iorfile $extra_args");
+}
 $CL = new PerlACE::Process ("../Generic_Servant/client", "$extra_args $oneway -i $iterations -k file://$iorfile -x");
 
 $status = 0;