Removed old comments and support for Chorus which we don't support anymore

    * ACE/ace/README:
    * ACE/ace/Thread_Manager.cpp:
    * ACE/ace/config-kfreebsd.h:
    * ACE/bin/libsize.pl:
    * ACE/docs/run_test.txt:
    * TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl:
    * TAO/orbsvcs/tests/Security/ssliop_corbaloc/run_test.pl:
    * TAO/orbsvcs/tests/Simple_Naming/run_test.pl:
    * TAO/orbsvcs/tests/Simple_Naming/run_test_ffp.pl:
    * TAO/orbsvcs/tests/Simple_Naming/run_test_ft.pl:
    * TAO/orbsvcs/tests/Simple_Naming/run_test_ipv6.pl:
    * TAO/performance-tests/Cubit/TAO/IDL_Cubit/README:
    * TAO/performance-tests/Cubit/TAO/MT_Cubit/README:
    * TAO/tests/Alt_Mapping/run_test.pl:
    * TAO/tests/Bug_2289_Regression/run_test.pl:
    * TAO/tests/Bug_3853_Regression/run_test.pl:
    * TAO/tests/DynAny_Test/run_test.pl:
    * TAO/tests/Param_Test/run_test.pl:

5 files changed, 6 insertions, 8 deletions

diff --git a/TAO/tests/Alt_Mapping/run_test.pl b/TAO/tests/Alt_Mapping/run_test.pl
index 2f344d4387f..f5ae3dabdcc 100755
--- a/TAO/tests/Alt_Mapping/run_test.pl
+++ b/TAO/tests/Alt_Mapping/run_test.pl
@@ -29,14 +29,13 @@ $status = 0;
 for ($i = 0; $i <= $#ARGV; $i++) {
     if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?") {
       print "Run_Test Perl script for TAO Param Test\n\n";
-      print "run_test [-n num] [-d] [-onewin] [-h] [-t type] [-i (dii|sii)] [-chorus <target>]\n";
+      print "run_test [-n num] [-d] [-onewin] [-h] [-t type] [-i (dii|sii)]\n";
       print "\n";
       print "-n num              -- runs the client num times\n";
       print "-d                  -- runs each in debug mode\n";
       print "-h                  -- prints this information\n";
       print "-t type             -- runs only one type of param test\n";
       print "-i (dii|sii)        -- Changes the type of invocation\n";
-      print "-chorus <target>    -- Run tests on chorus target\n";
       exit 0;
     }
     elsif ($ARGV[$i] eq "-n") {
diff --git a/TAO/tests/Bug_2289_Regression/run_test.pl b/TAO/tests/Bug_2289_Regression/run_test.pl
index 9122517317c..ef1e3f3c51c 100755
--- a/TAO/tests/Bug_2289_Regression/run_test.pl
+++ b/TAO/tests/Bug_2289_Regression/run_test.pl
@@ -18,7 +18,7 @@ foreach $i (@ARGV) {
 }
 
 # We want the server to run on a fixed port
-$port = PerlACE::uniqueid () + 10001;  # This can't be 10000 for Chorus 4.0
+$port = PerlACE::uniqueid () + 10001;
 
 my $server = PerlACE::TestTarget::create_target (1) || die "Create target 1 failed\n";
 my $client = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
diff --git a/TAO/tests/Bug_3853_Regression/run_test.pl b/TAO/tests/Bug_3853_Regression/run_test.pl
index 97382650711..c4b86f89890 100755
--- a/TAO/tests/Bug_3853_Regression/run_test.pl
+++ b/TAO/tests/Bug_3853_Regression/run_test.pl
@@ -13,8 +13,8 @@ my $server1 = PerlACE::TestTarget::create_target (1) || die "Create target 1 fai
 my $server2 = PerlACE::TestTarget::create_target (2) || die "Create target 2 failed\n";
 my $client = PerlACE::TestTarget::create_target (3) || die "Create target 2 failed\n";
 
-$port1 = PerlACE::uniqueid () + 10001;  # This can't be 10000 for Chorus 4.0
-$port2 = PerlACE::uniqueid () + 10002;  # This can't be 10000 for Chorus 4.0
+$port1 = PerlACE::uniqueid () + 10001;
+$port2 = PerlACE::uniqueid () + 10002;
 
 my $iorbase1 = "server1.ior";
 my $iorbase2 = "server2.ior";
diff --git a/TAO/tests/DynAny_Test/run_test.pl b/TAO/tests/DynAny_Test/run_test.pl
index 2f7562ff6d6..64e2257e833 100755
--- a/TAO/tests/DynAny_Test/run_test.pl
+++ b/TAO/tests/DynAny_Test/run_test.pl
@@ -28,7 +28,7 @@ sub run_test
 for ($i = 0; $i <= $#ARGV; $i++) {
     if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?") {
         print "Run_Test Perl script for TAO DynAny Test\n\n";
-        print "run_test [-chorus <target>] [-t type]\n";
+        print "run_test [-t type]\n";
         print "\n";
         print "-t type             -- runs only one type of dynany test\n";
         exit;
diff --git a/TAO/tests/Param_Test/run_test.pl b/TAO/tests/Param_Test/run_test.pl
index 7b89939b0d8..cf031cdf0a9 100755
--- a/TAO/tests/Param_Test/run_test.pl
+++ b/TAO/tests/Param_Test/run_test.pl
@@ -40,14 +40,13 @@ $status = 0;
 for ($i = 0; $i <= $#ARGV; $i++) {
     if ($ARGV[$i] eq "-h" || $ARGV[$i] eq "-?") {
       print "Run_Test Perl script for TAO Param Test\n\n";
-      print "run_test [-n num] [-d] [-onewin] [-h] [-t type] [-i (dii|sii)] [-chorus <target>]\n";
+      print "run_test [-n num] [-d] [-onewin] [-h] [-t type] [-i (dii|sii)]\n";
       print "\n";
       print "-n num              -- runs the client num times\n";
       print "-d                  -- runs each in debug mode\n";
       print "-h                  -- prints this information\n";
       print "-t type             -- runs only one type of param test\n";
       print "-i (dii|sii)        -- Changes the type of invocation\n";
-      print "-chorus <target>    -- Run tests on chorus target\n";
       exit 0;
     }
     elsif ($ARGV[$i] eq "-n") {