From a5bd8a3c8ddca2ceb8ec805465d1b9b53f6812da Mon Sep 17 00:00:00 2001
From: djk <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.34.1