diff options
| author | Jeff Pinyan <japhy@pobox.com> | 2001-05-09 08:35:24 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-09 16:19:04 +0000 |
| commit | adbecb01df3e094756a9a55e471d75094daded2e (patch) | |
| tree | ed325fa4abff9bdf3dd7edf16c554b89d523fd32 /lib/Pod | |
| parent | 75d2caed6cbde78f74f37132e362f147da92eeb5 (diff) | |
| download | perl-adbecb01df3e094756a9a55e471d75094daded2e.tar.gz | |
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
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Html.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index e61f29af5b..7a85f5cfc5 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 ); |