moved comment line(s) from head of file so that it is not interpreted as a csh file

12 files changed, 66 insertions, 53 deletions

diff --git a/TAO/orbsvcs/tests/CosEC_Multiple/run_test.pl b/TAO/orbsvcs/tests/CosEC_Multiple/run_test.pl
index 63a6701aa35..cfc7baacc2c 100755
--- a/TAO/orbsvcs/tests/CosEC_Multiple/run_test.pl
+++ b/TAO/orbsvcs/tests/CosEC_Multiple/run_test.pl
@@ -1,9 +1,10 @@
-#$Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 use lib "../../../../bin";
 
 require ACEutils;
diff --git a/TAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl b/TAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl
index a748182fe12..1e9f2e36c40 100755
--- a/TAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl
+++ b/TAO/orbsvcs/tests/CosEC_Multiple/run_test2.pl
@@ -1,9 +1,10 @@
-#$Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 use lib "../../../../bin";
 
 require ACEutils;
diff --git a/TAO/orbsvcs/tests/EC_Basic/run_test.pl b/TAO/orbsvcs/tests/EC_Basic/run_test.pl
index 50a65b5d6e3..f0b88f24d2c 100755
--- a/TAO/orbsvcs/tests/EC_Basic/run_test.pl
+++ b/TAO/orbsvcs/tests/EC_Basic/run_test.pl
@@ -1,9 +1,10 @@
-# -*- perl -*-
-# $Id$
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 $status = system ($EXEPREFIX."EC_Basic".$Process::EXE_EXT, "");
 
 # @@ Capture any errors from the server too.
diff --git a/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl b/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl
index 130dcd43ac0..abee5c67c57 100755
--- a/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl
+++ b/TAO/orbsvcs/tests/EC_Custom_Marshal/run_test.pl
@@ -1,9 +1,10 @@
-# $Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 unshift @INC, '../../../../bin';
 require Process;
 
diff --git a/TAO/orbsvcs/tests/EC_Multiple/run_test.pl b/TAO/orbsvcs/tests/EC_Multiple/run_test.pl
index df3183f0c3f..6a80cf9cf88 100755
--- a/TAO/orbsvcs/tests/EC_Multiple/run_test.pl
+++ b/TAO/orbsvcs/tests/EC_Multiple/run_test.pl
@@ -1,9 +1,10 @@
-# $Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 unshift @INC, '../../../../bin';
 require Process;
 
@@ -11,13 +12,13 @@ $NS_ior = "NameService.ior";
 $sleeptime = 3;
 
 $NS = Process::Create ("../../Naming_Service/Naming_Service".
-		       $Process::EXE_EXT." -o $NS_ior ");
+                       $Process::EXE_EXT." -o $NS_ior ");
 
 sleep $sleeptime;
 
 # This is a very simple test, no multiple consumers and no gateways.
 $status = system ($EXEPREFIX."EC_Multiple".$Process::EXE_EXT.
-		  " -s local");
+                  " -s local");
 
 $NS->Kill ();
 
diff --git a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl
index cfb17420485..b5e952dd4d8 100755
--- a/TAO/orbsvcs/tests/EC_Throughput/run_test.pl
+++ b/TAO/orbsvcs/tests/EC_Throughput/run_test.pl
@@ -1,9 +1,10 @@
-# $Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 unshift @INC, '../../../../bin';
 require Process;
 
@@ -11,15 +12,15 @@ $NS_ior = "NameService.ior";
 $sleeptime = 5;
 
 $NS = Process::Create ("..".$DIR_SEPARATOR.
-		       "..".$DIR_SEPARATOR.
-		       "Naming_Service".$DIR_SEPARATOR.
-		       "Naming_Service".$Process::EXE_EXT.
-		       " -o $NS_ior ");
+                       "..".$DIR_SEPARATOR.
+                       "Naming_Service".$DIR_SEPARATOR.
+                       "Naming_Service".$Process::EXE_EXT.
+                       " -o $NS_ior ");
 
 sleep $sleeptime;
 
 $T = Process::Create ($EXEPREFIX."ECT_Throughput".$Process::EXE_EXT
-		     . " -ORBsvcconf ec.conf -m new -n 1000 ");
+                     . " -ORBsvcconf ec.conf -m new -n 1000 ");
 
 sleep $sleeptime;
 
diff --git a/TAO/orbsvcs/tests/Event_Latency/run_test.pl b/TAO/orbsvcs/tests/Event_Latency/run_test.pl
index 1c0506f887c..0004b4229f5 100755
--- a/TAO/orbsvcs/tests/Event_Latency/run_test.pl
+++ b/TAO/orbsvcs/tests/Event_Latency/run_test.pl
@@ -1,9 +1,10 @@
-# $Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 unshift @INC, '../../../../bin';
 require Process;
 
@@ -11,7 +12,7 @@ $NS_ior = "NameService.ior";
 $sleeptime = 3;
 
 $NS = Process::Create ("../../Naming_Service/Naming_Service".
-		       $Process::EXE_EXT." -o $NS_ior ");
+                       $Process::EXE_EXT." -o $NS_ior ");
 
 sleep $sleeptime;
 
@@ -20,7 +21,7 @@ $ES = Process::Create ("../../Event_Service/Event_Service".$Process::EXE_EXT);
 sleep $sleeptime;
 
 $status = system ($EXEPREFIX."Event_Latency".$Process::EXE_EXT.
-		  " -j -m 100");
+                  " -j -m 100");
 
 $NS->Kill ();
 $ES->Kill ();
diff --git a/TAO/orbsvcs/tests/ImplRepo/run_test.pl b/TAO/orbsvcs/tests/ImplRepo/run_test.pl
index a5513b9f312..b37cd2b6179 100755
--- a/TAO/orbsvcs/tests/ImplRepo/run_test.pl
+++ b/TAO/orbsvcs/tests/ImplRepo/run_test.pl
@@ -1,9 +1,10 @@
-#$Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 use lib "../../../../bin";
 
 require ACEutils;
@@ -35,7 +36,7 @@ sub airplane_test
 
 sub airplane_ir_test
 {
-  $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, 
+  $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT,
                          "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 0");
 
   ACE::waitforfile ($implrepo_ior);
@@ -67,7 +68,7 @@ sub nestea_test
 
 sub nestea_ir_test
 {
-  $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, 
+  $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT,
                          "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 0");
 
   ACE::waitforfile ($implrepo_ior);
@@ -84,7 +85,7 @@ sub nestea_ir_test
 
 sub both_ir_test
 {
-  $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT, 
+  $IR = Process::Create ("..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR."ImplRepo_Service".$Process::EXE_EXT,
                          "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 0");
 
   ACE::waitforfile ($implrepo_ior);
@@ -125,27 +126,27 @@ for ($i = 0; $i <= $#ARGV; $i++)
     }
     if ($ARGV[$i] eq "airplane")
     {
-      airplane_test ();    
+      airplane_test ();
       exit;
     }
     if ($ARGV[$i] eq "airplane_ir")
     {
-      airplane_ir_test ();    
+      airplane_ir_test ();
       exit;
     }
     if ($ARGV[$i] eq "nestea")
     {
-      nestea_test ();    
+      nestea_test ();
       exit;
     }
     if ($ARGV[$i] eq "nestea_ir")
     {
-      nestea_ir_test ();    
+      nestea_ir_test ();
       exit;
     }
     if ($ARGV[$i] eq "both_ir")
     {
-      both_ir_test ();    
+      both_ir_test ();
       exit;
     }
 
diff --git a/TAO/orbsvcs/tests/Logger/run_test.pl b/TAO/orbsvcs/tests/Logger/run_test.pl
index bbacd0be9ee..bf052ebdb58 100755
--- a/TAO/orbsvcs/tests/Logger/run_test.pl
+++ b/TAO/orbsvcs/tests/Logger/run_test.pl
@@ -1,8 +1,10 @@
-# $Id$
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 $tao_root = $ENV{TAO_ROOT};
 # This is a Perl script that runs the Logger client and server
 
@@ -17,7 +19,7 @@ sub service
 {
   my $args = "";
   my $prog = $EXEPREFIX."$tao_root/orbsvcs/Logging_Service/Logging_Service"
-      .$Process::EXE_EXT;    
+      .$Process::EXE_EXT;
   $SV = Process::Create ($prog, $args);
 }
 
@@ -26,7 +28,7 @@ sub test
 {
   my $args = "";
   my $prog = $EXEPREFIX."Logging_Test".$Process::EXE_EXT;
-    
+
   system ("$prog $args");
 }
 
diff --git a/TAO/orbsvcs/tests/Property/run_test.pl b/TAO/orbsvcs/tests/Property/run_test.pl
index 50292c6c72a..c287ed68236 100755
--- a/TAO/orbsvcs/tests/Property/run_test.pl
+++ b/TAO/orbsvcs/tests/Property/run_test.pl
@@ -1,9 +1,10 @@
-# $Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 $tao_root = $ENV{TAO_ROOT};
 # This is a Perl script that runs the Naming Service, client and servers
 
@@ -22,7 +23,7 @@ sub name_server
 {
     my $args = "-ORBnameserviceport $nsport";
     my $prog = "$tao_root/orbsvcs/Naming_Service/Naming_Service"
-	.$Process::EXE_EXT;
+        .$Process::EXE_EXT;
     print ("\nNaming_Service: $prog$Process::EXE_EXT $args\n");
     $NS = Process::Create ($prog, $args);
 }
diff --git a/TAO/orbsvcs/tests/Simple_Naming/run_test.pl b/TAO/orbsvcs/tests/Simple_Naming/run_test.pl
index e837dfcf91c..1068b4866cd 100755
--- a/TAO/orbsvcs/tests/Simple_Naming/run_test.pl
+++ b/TAO/orbsvcs/tests/Simple_Naming/run_test.pl
@@ -1,9 +1,10 @@
-# $Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 # This is a Perl script that runs the client and all the other servers that
 # are needed
 
@@ -40,10 +41,10 @@ sub client
 @opts = ("-s", "-t", "-i", "-e", "-y");
 
 @comments = ("Simple Test: \n",
-	     "Tree Test: \n",
-	     "Iterator Test: \n",
-	     "Exceptions Test: \n",
-	     "Destroy Test: \n");
+             "Tree Test: \n",
+             "Iterator Test: \n",
+             "Exceptions Test: \n",
+             "Destroy Test: \n");
 
 $test_number = 0;
 
diff --git a/TAO/orbsvcs/tests/Time/run_test.pl b/TAO/orbsvcs/tests/Time/run_test.pl
index 7a0138e8b4f..6e7183b63f9 100755
--- a/TAO/orbsvcs/tests/Time/run_test.pl
+++ b/TAO/orbsvcs/tests/Time/run_test.pl
@@ -1,9 +1,10 @@
-#$Id$
-# -*- perl -*-
 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
     & eval 'exec perl -S $0 $argv:q'
     if 0;
 
+# $Id$
+# -*- perl -*-
+
 use lib "../../../../bin";
 
 require ACEutils;
@@ -31,7 +32,7 @@ sub time_service_test_using_naming_service
     sleep 10;
 
     $status = system ($EXEPREFIX."client".$Process::EXE_EXT.
-		      "");
+                      "");
 
     $SV1->Kill ();
     $SV2->Kill ();
@@ -42,20 +43,20 @@ sub time_service_test_using_naming_service
 sub time_service_test_using_files
 {
     $SV1 = Process::Create ($time_dir."server".$Process::EXE_EXT,
-			    "-o $server_ior");
+                            "-o $server_ior");
 
     ACE::waitforfile ($server_ior);
     sleep 5;
 
     $SV2 = Process::Create ($time_dir."clerk".$Process::EXE_EXT,
-			    "-f $server_ior -o clerk_ior -t 2");
+                            "-f $server_ior -o clerk_ior -t 2");
 
     ACE::waitforfile ($clerk_ior);
 
     sleep 10;
 
     $status = system ($EXEPREFIX."client".$Process::EXE_EXT.
-		      " -f clerk_ior");
+                      " -f clerk_ior");
 
     $SV1->Kill ();
     $SV2->Kill ();
@@ -69,7 +70,7 @@ sub time_service_test_using_files
 sub time_service_test_using_ir
 {
   $ir_dir = "..".$DIR_SEPARATOR."..".$DIR_SEPARATOR."ImplRepo_Service".$DIR_SEPARATOR;
-  $IR = Process::Create ($ir_dir."ImplRepo_Service".$Process::EXE_EXT, 
+  $IR = Process::Create ($ir_dir."ImplRepo_Service".$Process::EXE_EXT,
                          "-ORBsvcconf implrepo.conf -ORBobjrefstyle url -d 1");
 
   ACE::waitforfile ($implrepo_ior);
@@ -82,7 +83,7 @@ sub time_service_test_using_ir
   sleep 10;
 
   $SV2 = Process::Create ($time_dir."clerk".$Process::EXE_EXT,
-			  "-f $server_ior -o clerk_ior -ORBobjrefstyle url");
+                          "-f $server_ior -o clerk_ior -ORBobjrefstyle url");
 
   sleep 10;