This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
podcheck.t: Need to translate E<lt> and E<gt>
authorKarl Williamson <khw@cpan.org>
Thu, 11 Feb 2016 03:31:13 +0000 (20:31 -0700)
committerKarl Williamson <khw@cpan.org>
Thu, 11 Feb 2016 04:16:43 +0000 (21:16 -0700)
These can appear in links, and need to be translated into their correct
character.

t/porting/podcheck.t

index 0312ed1..0b395d0 100644 (file)
@@ -1771,6 +1771,8 @@ if (! $has_input_files) {
                 # Transform pod language to what we are expecting
                 $node =~ s,E<sol>,/,g;
                 $node =~ s/E<verbar>/|/g;
                 # Transform pod language to what we are expecting
                 $node =~ s,E<sol>,/,g;
                 $node =~ s/E<verbar>/|/g;
+                $node =~ s/E<lt>/</g;
+                $node =~ s/E<gt>/>/g;
 
                 # If link is to a node that exists in the file, is ok
                 if ($nodes{$linked_to_page}{$node}) {
 
                 # If link is to a node that exists in the file, is ok
                 if ($nodes{$linked_to_page}{$node}) {