Skip Menu |

This queue is for tickets about the Perl6-Form CPAN distribution.

Report information
The Basics
Id: 20347
Status: new
Priority: 0/
Queue: Perl6-Form

People
Owner: Nobody in particular
Requestors: milardj [...] yahoo.com
Cc:
AdminCc:

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



Subject: Infinite loop if page->{length} is < then length of the format
Infinite loop is created when the defined page length is less then what is needed to print out the text created by a call to form(). To replicate change length to 1 (from 15) in demo_pages.pl. In make_page() - because we never enter the following for loop: for my $row (0..$maxheight-1) { push @text, join "",map $parts[$_][$row],0..$#parts; } The @text arry is never assigned to causing an infinite loop since the loop condition is never satisfied: while (@text < $bodylen && @{$section->{formatters}}) {