podcheck.t: Deal properly with -1 counts

These counts are for things like perltoc which are compendiums of other
pods, and so contain any errors in those other pods, which should be
output with the offending pod and not perltoc.  By setting the counts of
errors to a negative in the db, the message for perltoc is suppressed.
But a message was getting improperly output with perltoc when the
original pod got fixed.

diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 999bcb1..f8f7c72 100644 (file)
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -1401,6 +1401,7 @@ foreach my $filename (@files) {
         foreach my $message ( sort keys %{$known_problems{$filename}}) {
             next if $problems{$filename}{$message};
             next if ! $known_problems{$filename}{$message};
+            next if $known_problems{$filename}{$message} < 0; # Preserve negs
             my $diagnostic = output_thanks($filename, $known_problems{$filename}{$message}, 0, $message);
             push @diagnostics, $diagnostic if $diagnostic;
         }