1 files changed, 3 insertions, 18 deletions
diff --git a/TAO/tests/Bug_2183_Regression/run_test.pl b/TAO/tests/Bug_2183_Regression/run_test.pl
index 483b71e5ebc..a7f866baf63 100755
--- a/TAO/tests/Bug_2183_Regression/run_test.pl
+++ b/TAO/tests/Bug_2183_Regression/run_test.pl
@@ -12,12 +12,7 @@ use PerlACE::Run_Test;
 $server_ior_file = PerlACE::LocalFile ("server.ior");
 
 # The client and server processes
-if (PerlACE::is_vxworks_test()) {
-  $SERVER     = new PerlACE::ProcessVX(PerlACE::LocalFile("server"));
-}
-else {
-  $SERVER     = new PerlACE::Process(PerlACE::LocalFile("server"));
-}
+$SERVER     = new PerlACE::Process(PerlACE::LocalFile("server"));
 $perl_executable = $^X;
 $perl_executable =~ s/\.exe//g;
 $DUMMY_CLIENT = new PerlACE::Process($perl_executable);
@@ -26,20 +21,10 @@ $CLIENT     = new PerlACE::Process(PerlACE::LocalFile("client"));
 $DUMMY_CLIENT->Arguments("hang_client.pl");
 $DUMMY_CLIENT->IgnoreExeSubDir(1);
 
-if (PerlACE::is_vxworks_test()) {
-  $SERVER->Arguments("-o server.ior -ORBEndpoint iiop://:15000 -ORBSvcConf server.conf");
-}
-else {
-  $SERVER->Arguments("-o $server_ior_file -ORBEndpoint iiop://:15000 -ORBSvcConf server.conf");
-}
+$SERVER->Arguments("-o $server_ior_file -ORBEndpoint iiop://:15000 -ORBSvcConf server.conf");
 
 # Fire up the server
-$sv = $SERVER->Spawn();
-
-if ($sv != 0) {
-   print STDERR "ERROR: server returned $sv\n";
-   exit 1;
-}
+$SERVER->Spawn();
 
 # We can wait on the IOR file 
 if (PerlACE::waitforfile_timed ($server_ior_file, 10) == -1)