fix uninit line in console

diff --git a/perl/console.pl b/perl/console.pl
index cec17ab4495b5fc2e14833df17cf2b6b7de174f6..a0e4f1087a676825397a46a0e2a0fb8cb19b9ff2 100755 (executable)
--- 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);