This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
porting/podcheck.t: improve diagnostic
[perl5.git] / t / porting / podcheck.t
index f7e75cb..9864af6 100644 (file)
@@ -1804,9 +1804,10 @@ foreach my $filename (@files) {
                 # subtract back this number we previously added in.
                 $total_known -= $problem_count;
 
-                $diagnostic .= $indent . $message;
+                $diagnostic .= $indent . qq{"$message"};
                 if ($problem_count > 2) {
-                    $diagnostic .= "  ($problem_count occurrences)";
+                    $diagnostic .= "  ($problem_count occurrences,"
+                       . " expected $known_problems{$canonical}{$message})";
                 }
                 foreach my $problem (@{$problems{$filename}{$message}}) {
                     $diagnostic .= " " if $problem_count == 1;