This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: decode verbatim paragraphs before checking length
authorDavid Golden <dagolden@cpan.org>
Fri, 10 Jun 2011 17:54:35 +0000 (13:54 -0400)
committerDavid Golden <dagolden@cpan.org>
Fri, 10 Jun 2011 18:02:43 +0000 (14:02 -0400)
t/porting/known_pod_issues.dat
t/porting/podcheck.t

index d325aa8..20b8914 100644 (file)
@@ -256,8 +256,6 @@ pod/perlintro.pod   Verbatim line length including indents exceeds 80 by    11
 pod/perliol.pod        Verbatim line length including indents exceeds 80 by    8
 pod/perlipc.pod        Verbatim line length including indents exceeds 80 by    21
 pod/perlirix.pod       Verbatim line length including indents exceeds 80 by    4
 pod/perliol.pod        Verbatim line length including indents exceeds 80 by    8
 pod/perlipc.pod        Verbatim line length including indents exceeds 80 by    21
 pod/perlirix.pod       Verbatim line length including indents exceeds 80 by    4
-pod/perljp.pod Verbatim line length including indents exceeds 80 by    1
-pod/perlko.pod Verbatim line length including indents exceeds 80 by    14
 pod/perllocale.pod     Verbatim line length including indents exceeds 80 by    4
 pod/perllol.pod        Verbatim line length including indents exceeds 80 by    4
 pod/perlmacosx.pod     ? Should you be using F<...> or maybe L<...> instead of 1
 pod/perllocale.pod     Verbatim line length including indents exceeds 80 by    4
 pod/perllol.pod        Verbatim line length including indents exceeds 80 by    4
 pod/perlmacosx.pod     ? Should you be using F<...> or maybe L<...> instead of 1
index 6d987b2..2a1531d 100644 (file)
@@ -550,17 +550,23 @@ package My::Pod::Checker {      # Extend Pod::Checker
 
         $self->SUPER::verbatim($paragraph, $line_num, $pod_para);
 
 
         $self->SUPER::verbatim($paragraph, $line_num, $pod_para);
 
+        my $addr = Scalar::Util::refaddr $self;
+
         # Pick up the name, since the parent class doesn't in verbatim
         # NAMEs; so treat as non-verbatim.  The parent class only allows one
         # paragraph in a NAME section, so if there is an extra blank line, it
         # will trigger a message, but such a blank line is harmless, so skip
         # in that case.
         # Pick up the name, since the parent class doesn't in verbatim
         # NAMEs; so treat as non-verbatim.  The parent class only allows one
         # paragraph in a NAME section, so if there is an extra blank line, it
         # will trigger a message, but such a blank line is harmless, so skip
         # in that case.
-        if ($in_NAME{Scalar::Util::refaddr $self} && $paragraph =~ /\S/) {
+        if ($in_NAME{$addr} && $paragraph =~ /\S/) {
             $self->textblock($paragraph, $line_num, $pod_para);
         }
 
         my @lines = split /^/, $paragraph;
         for my $i (0 .. @lines - 1) {
             $self->textblock($paragraph, $line_num, $pod_para);
         }
 
         my @lines = split /^/, $paragraph;
         for my $i (0 .. @lines - 1) {
+            if ( my $encoding = $seen_encoding_cmd{$addr} ) {
+              require Encode;
+              $lines[$i] = Encode::decode($encoding, $lines[$i]);
+            }
             $lines[$i] =~ s/\s+$//;
             my $indent = $self->get_current_indent;
             my $exceeds = length(Text::Tabs::expand($lines[$i]))
             $lines[$i] =~ s/\s+$//;
             my $indent = $self->get_current_indent;
             my $exceeds = length(Text::Tabs::expand($lines[$i]))
@@ -638,7 +644,7 @@ package My::Pod::Checker {      # Extend Pod::Checker
         }
         elsif ($cmd eq "encoding") {
             my ($file, $line) = $pod_para->file_line;
         }
         elsif ($cmd eq "encoding") {
             my ($file, $line) = $pod_para->file_line;
-            $seen_encoding_cmd{$addr} = 1;
+            $seen_encoding_cmd{$addr} = $paragraph; # for later decoding
             if ($command_count{$addr} != 1 && $seen_pod_cmd{$addr}) {
                 $self->poderror({ -line => $line, -file => $file,
                                   -msg => $encoding_first
             if ($command_count{$addr} != 1 && $seen_pod_cmd{$addr}) {
                 $self->poderror({ -line => $line, -file => $file,
                                   -msg => $encoding_first