From: Jeff Pinyan <japhy@pobox.com>
Date: Wed, 9 May 2001 12:35:24 +0000 (-0400)
Subject: Pod::Html doesn't honor =begin ... =end properly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=adbecb01df3e094756a9a55e471d75094daded2e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 );