diff options
Diffstat (limited to 'TAO/tests/Oneway_Buffering/run_timeout_reactive.pl')
-rwxr-xr-x | TAO/tests/Oneway_Buffering/run_timeout_reactive.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/TAO/tests/Oneway_Buffering/run_timeout_reactive.pl b/TAO/tests/Oneway_Buffering/run_timeout_reactive.pl index 31f09190b88..f91953726d9 100755 --- a/TAO/tests/Oneway_Buffering/run_timeout_reactive.pl +++ b/TAO/tests/Oneway_Buffering/run_timeout_reactive.pl @@ -14,7 +14,13 @@ $server_iorfile = PerlACE::LocalFile ("server.ior"); unlink $admin_iorfile; unlink $server_iorfile; -my $AD = new PerlACE::Process ("admin", "-o $admin_iorfile"); +my $AD = 0; +if (PerlACE::is_vxworks_test()) { + $AD = new PerlACE::ProcessVX ("admin", "-o admin.ior"); +} +else { + $AD = new PerlACE::Process ("admin", "-o $admin_iorfile"); +} my $SV = new PerlACE::Process ("server", "-o $server_iorfile"); my $CL = new PerlACE::Process ("client", " -k file://$server_iorfile " |