From 26edd312d375cfe44d81eedb8694435022e2d8dd Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Wed, 10 Feb 2016 20:46:39 -0700
Subject: 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.
---
 t/porting/diag.t | 3 +++
 1 file changed, 3 insertions(+)

(limited to 't')

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 7c94aa0dec..ccde8cb13f 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}
-- 
cgit v1.2.1