This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: Deal properly with -1 counts
[perl5.git] / t / porting / podcheck.t
index 999bcb1..f8f7c72 100644 (file)
@@ -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;
         }