From: Karl Williamson <khw@cpan.org>
Date: Thu, 11 Feb 2016 03:46:39 +0000 (-0700)
Subject: porting/diag.t: Handle some E<> pod escapes
X-Git-Tag: v5.23.8~81
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/26edd312d375cfe44d81eedb8694435022e2d8dd?hp=575b8f4121cbbfdd017df1cb30bba937d4b13c5c

porting/diag.t: Handle some E<> pod escapes

These can occur in perldiag, and so must be converted into the character
that the internal message outputs.  This commit causes the major ones of
these to be converted.
---

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 7c94aa0..ccde8cb 100644
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -91,6 +91,9 @@ while (<$diagfh>) {
 
     $cur_entry =~ s/\n/ /gs; # Fix multi-line headers if they have \n's
     $cur_entry =~ s/\s+\z//;
+    $cur_entry =~ s/E<lt>/</g;
+    $cur_entry =~ s/E<gt>/>/g;
+    $cur_entry =~ s,E<sol>,/,g;
     $cur_entry =~ s/[BCIFS](?:<<< (.*?) >>>|<< (.*?) >>|<(.*?)>)/$+/g;
 
     if (exists $entries{$cur_entry} &&  $entries{$cur_entry}{todo}