| Subject: | Negative repeat count does nothing at /usr/share/perl5/Perl6/Form.pm line 1226 |
I'm getting six of the above warnings per line printed, apparently $f->{height}{min} is undef and @{$parts[$col]} is 1, so the repeat count becomes -1, which results in a warning (W numberic) since perl v5.22.0. Perhaps the repeat count needs to be calculated first, and set to zero if it becomes negative?
My use case:
use Perl6::Form;
...
print form { page => { width => $cols } },
"{<<<<<<<<<<<<<<<<<} {<<<<<<<} {[[[{ * }[[[}",
$_->{'timestamp'}, $_->{'source'}, $_->{'message'};