fix page up off by one bug

diff --git a/perl/console.pl b/perl/console.pl
index 88ffb92787589a527ebf03f51983b053de466bdb..d04a7279bd585f9450a7e2fb1094c94018823461 100755 (executable)
--- 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;