This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RT-119817 - Treat =back as the end of a warning description.
[perl5.git] / lib / diagnostics.pm
index 33c25d4..1c210c4 100644 (file)
@@ -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;
        }