I don't believe there was any confirmation of these two patches, and I've been requested to ask for these to be included in the next podlators release. -- Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/ I am Marillion, the wielder of Ringril, known as Hesinaur, the Winter-Sun. Are you a Monk? http://www.perlmonks.com/ http://forums.perlguru.com/ Perl Programmer at RiskMetrics Group, Inc. http://www.riskmetrics.com/ Acacia Fraternity, Rensselaer Chapter. Brother #734 ** Manning Publications, Co, is publishing my Perl Regex book ** ---------- Forwarded message ---------- Date: Wed, 9 May 2001 12:35:24 -0400 (EDT) From: Jeff Pinyan <jeffp@crusoe.net> Reply-To: japhy@pobox.com To: perl5-porters@perl.org Cc: tchrist@perl.com Subject: [PATCH] Pod::Html doesn't honor =begin ... =end properly Below my sig is the patch to correct it. Previously, it changed: =begin html <i>foo</i> <b>bar</b> =end html into: <i>foo</i> <p><b>bar</b></p> which is not proper. My patch fixes this. -- Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/ Are you a Monk? http://www.perlmonks.com/ http://forums.perlguru.com/ Perl Programmer at RiskMetrics Group, Inc. http://www.riskmetrics.com/ Acacia Fraternity, Rensselaer Chapter. Brother #734 *** /usr/local/lib/perl5/5.6.0/Pod/Html.pm.OLD Wed May 9 12:31:03 2001 --- /usr/local/lib/perl5/5.6.0/Pod/Html.pm Wed May 9 12:30:40 2001 *************** *** 492,497 **** --- 492,498 ---- 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 );Thread Next