podcheck.t: Need to translate E<lt> and E<gt>

[perl5.git] / t / porting / podcheck.t

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}) {