diff options
| author | Karl Williamson <khw@cpan.org> | 2016-02-10 20:31:13 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-02-10 21:16:43 -0700 |
| commit | 575b8f4121cbbfdd017df1cb30bba937d4b13c5c (patch) | |
| tree | 070ac3ceeaf597d6bc7764f3294793dafd3b0f67 /t | |
| parent | 841c58e55c6a71e4c46b527906cf02c1e03b9473 (diff) | |
| download | perl-575b8f4121cbbfdd017df1cb30bba937d4b13c5c.tar.gz | |
podcheck.t: Need to translate E<lt> and E<gt>
These can appear in links, and need to be translated into their correct
character.
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/podcheck.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t index 0312ed1e20..0b395d0958 100644 --- a/t/porting/podcheck.t +++ b/t/porting/podcheck.t @@ -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; + $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}) { |