From a89e605f6679f19b1365061bad1ba93b36293814 Mon Sep 17 00:00:00 2001 From: djk Date: Mon, 1 Nov 1999 11:48:29 +0000 Subject: [PATCH] fixed console back again --- perl/console.pl | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/perl/console.pl b/perl/console.pl index a0e4f108..ceac24e2 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -137,10 +137,9 @@ sub measure # display the top screen sub show_screen { - if ($spos >= @shistory - 1) { + if ($spos == @shistory - 1) { # if we really are scrolling thru at the end of the history - $spos = @shistory - 1 if $spos >= @shistory; my $line = $shistory[$spos]; $top->addstr("\n") if $spos > 0; setattr($line); -- 2.43.0