| Subject: | Fails with <=1 line of text |
perl -e'
use Term::Pager;
my $text = "a\n";
my $t = Term::Pager->new( rows => 25, cols => 80 );
$t->add_text( $text );
$t->more();
'
Illegal division by zero at /usr/local/share/perl/5.10.1/Term/Pager.pm
line 204.