This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
841c58e
)
podcheck.t: Need to translate E<lt> and E<gt>
author
Karl Williamson
<khw@cpan.org>
Thu, 11 Feb 2016 03:31:13 +0000
(20:31 -0700)
committer
Karl 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
patch
|
blob
|
blame
|
history
diff --git
a/t/porting/podcheck.t
b/t/porting/podcheck.t
index
0312ed1
..
0b395d0
100644
(file)
--- 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}) {