]> dxcluster.org Git - spider.git/commitdiff
fix page up off by one bug
authorminima <minima>
Sun, 14 Jan 2007 21:32:18 +0000 (21:32 +0000)
committerminima <minima>
Sun, 14 Jan 2007 21:32:18 +0000 (21:32 +0000)
perl/console.pl

index 88ffb92787589a527ebf03f51983b053de466bdb..d04a7279bd585f9450a7e2fb1094c94018823461 100755 (executable)
@@ -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;