Skip Menu |
 

This queue is for tickets about the HTML-Format CPAN distribution.

Report information
The Basics
Id: 9602
Status: open
Priority: 0/
Queue: HTML-Format

People
Owner: Nobody in particular
Requestors: lulu [...] lululand.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 2.04
Fixed in: (no value)



Subject: HTML Text Formatter does not output lines containing blank spaces
Download (untitled) / with headers
text/plain 232b
An HTML file containing a line of NBSP does not generate a blank line from the HTML Text Formatter. For sample input, please use the same test file as bug #9600. I am running Perl 5.8.5, Linux FC3, i686, using HTML-Format 2.0.4.
From: lulu [...] lululand.com
Download (untitled) / with headers
text/plain 336b
I am attaching a patch that fixes this problem. [guest - Mon Jan 10 21:32:21 2005]: Show quoted text
> > An HTML file containing a line of NBSP does not generate a blank line > from the HTML Text Formatter. > > For sample input, please use the same test file as bug #9600. > > I am running Perl 5.8.5, Linux FC3, i686, using HTML-Format 2.0.4.
Download 9602.patch
text/x-diff 601b
--- FormatText.pm.sav 2004-06-02 00:48:28.000000000 -0700 +++ FormatText.pm 2005-01-10 17:19:19.654625320 -0800 @@ -190,11 +190,6 @@ $text =~ tr/\xA0\xAD/ /d; - if ($text =~ /^\s*$/) { - $self->{hspace} = 1; - return; - } - if (defined $self->{vspace}) { if ($self->{out}) { $self->nl while $self->{vspace}-- >= 0; @@ -204,6 +199,11 @@ $self->{hspace} = 0; } + if ($text =~ /^\s*$/) { + $self->{hspace} = 1; + return; + } + if ($self->{hspace}) { if ($self->{curpos} + length($text) > $self->{rm}) { # word will not fit on line; do a line break
considering this with 9600


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.