Add some basic decriptions and/or usage info to some Porting/ scripts

5 files changed, 19 insertions, 1 deletions

diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl
index 2855acf8cd..8c23649daa 100644
--- a/Porting/cmpVERSION.pl
+++ b/Porting/cmpVERSION.pl
@@ -14,6 +14,8 @@ use File::Compare;
 use File::Find;
 use File::Spec::Functions qw(rel2abs abs2rel catfile catdir curdir);
 
+@ARGV == 2 or die "usage: $0 source_dir1 source_dir2\n";
+
 for (@ARGV[0, 1]) {
     die "$0: '$_' does not look like Perl directory\n"
 	unless -f catfile($_, "perl.h") && -d catdir($_, "Porting");
diff --git a/Porting/makemeta b/Porting/makemeta
index 6d5b0abbdc..2ebaf078cf 100644
--- a/Porting/makemeta
+++ b/Porting/makemeta
@@ -1,5 +1,8 @@
 #!./perl -w
 # this script must be run by the current perl to get perl's version right
+#
+# Create a META.yml file in the current directory. Muyst be run from the
+# root directory of a perl source tree.
 
 use strict;
 use warnings;
diff --git a/Porting/switch_to_perforce_id.pl b/Porting/switch_to_perforce_id.pl
index cfd68e3d18..fb3611d52d 100755
--- a/Porting/switch_to_perforce_id.pl
+++ b/Porting/switch_to_perforce_id.pl
@@ -1,4 +1,8 @@
 #!perl
+#
+# given a perforce change number, checkout the equivalent git commit
+# into the git working directory
+#
 use strict;
 use warnings;
 use English;
diff --git a/Porting/testall.atom b/Porting/testall.atom
index a709cfdb01..8796f08f2b 100644
--- a/Porting/testall.atom
+++ b/Porting/testall.atom
@@ -1,7 +1,7 @@
 #!/bin/sh
 
 #
-# testall.atom
+# testall.atom - test suite profiling on Tru 64
 # 
 # This script creates all.Counts file that can be fed to prof(1)
 # to produce various basic block counting profiles.
diff --git a/Porting/thirdclean b/Porting/thirdclean
index 86103f77fa..8f1d3f894b 100644
--- a/Porting/thirdclean
+++ b/Porting/thirdclean
@@ -1,3 +1,12 @@
+#!./perl
+
+# DAPM: this description is from the original commit message:
+# this appears to be a HP leak detection thing:
+#
+#    Add a script for cleaning out the "known noise"
+#    from Third Degree reports: either noise caused
+#    by libc itself, or Perl_yyparse leaks.
+
 local $/;
 $_ = <ARGV>;