report everything except "func" and "placeholder" when checking for

pullups.
report differences in messages to catch spelling/numbering corrections.

diff --git a/util/check-pullups.pl b/util/check-pullups.pl
index 24ecb6c0671a9c15c5e08d1fe59c80bfc3e71af7..a63f60b5b5fb63d3bafe89cbdf644a11c40c211a 100644 (file)
--- a/util/check-pullups.pl
+++ b/util/check-pullups.pl
@@ -15,7 +15,7 @@
 # NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
 # WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
-# $Id: check-pullups.pl,v 1.8 2002/08/06 02:26:11 marka Exp $
+# $Id: check-pullups.pl,v 1.9 2003/05/15 00:19:07 marka Exp $
 
 # Given two CHANGES files, list [bug] entries present in the
 # first one but not in the second one.
@@ -74,11 +74,25 @@ if (@ARGV == 3) {
        my $c3 = { };
 }
 
+my $msg = "";
 foreach my $c (sort {$a <=> $b} keys %$c1) {
        my $category = $c1->{$c}->{category};
-       if (($category eq "bug" || $category eq "port" ||
-            $category eq "tuning") &&
+       my $text = $c1->{$c}->{text};
+       if ($category ne "func" && $category ne "placeholder" &&
            !exists($c2->{$c}) && !exists($c3->{$c})) {
+               if ($msg ne "MISSING\n") {
+                       $msg = "MISSING\n";
+                       print $msg;
+               }
+               print $c1->{$c}->{text};
+       }
+       if (exists($c2->{$c}) && $category ne "placeholder" &&
+           $c2->{$c}->{text} ne $text) {
+               if ($msg ne "TEXT\n") {
+                       $msg = "TEXT\n";
+                       print $msg;
+               }
+               print $c2->{$c}->{text};
                print $c1->{$c}->{text};
        }
 }