develooper Front page | perl.perl5.porters | Postings from July 2001

RESENDING: [PATCH] Pod::Html doesn't honor =begin ... =end properly(fwd)

Thread Next
From:
Jeff 'japhy/Marillion' Pinyan
Date:
July 19, 2001 16:34
Subject:
RESENDING: [PATCH] Pod::Html doesn't honor =begin ... =end properly(fwd)
Message ID:
Pine.GSO.4.21.0107191933340.7854-100000@crusoe.crusoe.net
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>&lt;b&gt;bar&lt;/b&gt;</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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About