From 4eaa4142f393f749238b9db8b56d699772fb4f4e Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 14 Jan 2007 21:32:18 +0000 Subject: [PATCH] fix page up off by one bug --- perl/console.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; -- 2.43.0