From adbecb01df3e094756a9a55e471d75094daded2e Mon Sep 17 00:00:00 2001
From: Jeff Pinyan <japhy@pobox.com>
Date: Wed, 9 May 2001 08:35:24 -0400
Subject: [PATCH] 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
---
 lib/Pod/Html.pm | 1 +
 1 file changed, 1 insertion(+)

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