From: minima Date: Sun, 14 Jan 2007 21:32:18 +0000 (+0000) Subject: fix page up off by one bug X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=4eaa4142f393f749238b9db8b56d699772fb4f4e;p=spider.git fix page up off by one bug --- diff --git a/perl/console.pl b/perl/console.pl index 88ffb927..d04a7279 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -340,7 +340,7 @@ sub rec_stdin } elsif ($r eq KEY_PPAGE || $r eq "\032") { if ($spos > 0) { my ($i, $l); - for ($i = 0; $i <= $pagel-1 && $spos >= 0; ) { + for ($i = 0; $i < $pagel-1 && $spos >= 0; ) { $l = measure($shistory[$spos]); $i += $l; $spos-- if $i <= $pagel;