Pod::Html doesn't honor =begin ... =end properly

Message-ID: <Pine.GSO.4.21.0105091233430.357-100000@crusoe.crusoe.net>

p4raw-id: //depot/perl@10052

diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm
index e61f29a..7a85f5c 100644 (file)
--- a/lib/Pod/Html.pm
+++ b/lib/Pod/Html.pm
@@ -499,6 +499,7 @@ END_OF_HEAD
        else {
            next if $ignore;
            next if @begin_stack && $begin_stack[-1] ne 'html';
+            print HTML and next if @begin_stack && $begin_stack[-1] eq 'html';
            my $text = $_;
            if( $text =~ /\A\s+/ ){
                process_pre( \$text );