diff options
| author | Karl Williamson <khw@cpan.org> | 2016-02-10 20:46:39 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-02-10 21:16:43 -0700 |
| commit | 26edd312d375cfe44d81eedb8694435022e2d8dd (patch) | |
| tree | 8a36b5d205be438306c5571e0da63f5987cac12e /t | |
| parent | 575b8f4121cbbfdd017df1cb30bba937d4b13c5c (diff) | |
| download | perl-26edd312d375cfe44d81eedb8694435022e2d8dd.tar.gz | |
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.
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/diag.t | 3 |
1 files changed, 3 insertions, 0 deletions
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} |