From a5bd8a3c8ddca2ceb8ec805465d1b9b53f6812da Mon Sep 17 00:00:00 2001 From: djk Date: Sun, 31 Oct 1999 22:09:18 +0000 Subject: [PATCH] fix uninit line in console --- perl/console.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/perl/console.pl b/perl/console.pl index cec17ab4..a0e4f108 100755 --- a/perl/console.pl +++ b/perl/console.pl @@ -140,6 +140,7 @@ sub show_screen 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