[SCM] Debian package checker branch, master, updated. 1.24.4-57-gcfdcbc8

["Jordà Polo" <jorda@ettin.org>]

The following commit has been merged in the master branch:
commit 6eb762676b13c8a1e65f311dc7584bdd03403caa
Author: Jordà Polo <jorda@ettin.org>
Date:   Thu Aug 14 23:47:29 2008 +0200

    Display collections needed by Severity/Certainty

diff --git a/private/transtats b/private/transtats
index f911483..5b0ee75 100755
--- a/private/transtats
+++ b/private/transtats
@@ -41,6 +41,12 @@ for my $check (readdir CHECKDIR) {
     next unless $check =~ /\.desc$/;
 
     my @tags = read_dpkg_control("$LINTIAN_ROOT/checks/$check");
+    my $desc = $tags[0];
+    my @needs = ();
+    if ($desc and exists $desc->{'needs-info'}) {
+        @needs = split(/\s*,\s*/, $desc->{'needs-info'});
+    }
+
     shift(@tags);
 
     foreach my $tag (@tags) {
@@ -59,6 +65,8 @@ for my $check (readdir CHECKDIR) {
         push(@{$stats{type}{severity}{$type}{$severity}}, $name);
         push(@{$stats{type}{both}{$type}{$severity}{$certainty}}, $name);
 
+        map { $stats{needs}{$severity}{$certainty}{$_} = 1 } @needs;
+
         $num_tags++;
 
         next if not $done;
@@ -142,6 +150,18 @@ foreach my $old (@codes) {
     }
 }
 
+print "\nCollections\n";
+foreach my $s (@severities) {
+    foreach my $c (@certainties) {
+        if (my $needs = $stats{needs}{$s}{$c}) {
+            my $size = scalar keys %{$needs};
+            my @list = keys %{$needs};
+            print "  $s/$c: $size\n";
+            print "    ". join("\n    ", @list) ."\n" if $verbose >= 2;
+        }
+    }
+}
+
 if ($verbose >= 1 and exists $stats{severity}{unclassified}) {
     print "\nUnclassified tags\n";
     print "  ". join("\n  ", @{$stats{severity}{unclassified}}) ."\n"

-- 
Debian package checker