diff options
author | Matthew Horsfall (alh) <wolfsage@gmail.com> | 2013-09-17 08:49:35 -0400 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2013-09-17 12:36:04 -0700 |
commit | f1deee33127f317d04081ad769f003385b22e490 (patch) | |
tree | 8231b4b42781c6c09648f16910b63927aa4bb384 /lib/diagnostics.pm | |
parent | 942cddc4751d3a9bac11ba8309e93afc6e62a5cf (diff) | |
download | perl-f1deee33127f317d04081ad769f003385b22e490.tar.gz |
RT-119817 - Treat =back as the end of a warning description.
This keeps any trailing data in the file from showing up as part
of the last warning's description.
Diffstat (limited to 'lib/diagnostics.pm')
-rw-r--r-- | lib/diagnostics.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lib/diagnostics.pm b/lib/diagnostics.pm index 33c25d4fd6..1c210c4f4e 100644 --- a/lib/diagnostics.pm +++ b/lib/diagnostics.pm @@ -186,7 +186,7 @@ use 5.009001; use Carp; $Carp::Internal{__PACKAGE__.""}++; -our $VERSION = '1.32'; +our $VERSION = '1.33'; our $DEBUG; our $VERBOSE; our $PRETTY; @@ -393,7 +393,13 @@ my %msg; } elsif( s/^=for\s+diagnostics\s*\n(.*?)\s*\z// ) { $for_item = $1; - } + } + elsif( /^=back/ ) { # Stop processing body here + undef $header; + undef $for_item; + $seen_body = 0; + next; + } next; } |