]> dxcluster.org Git - spider.git/commitdiff
fix uninit line in console
authordjk <djk>
Sun, 31 Oct 1999 22:09:18 +0000 (22:09 +0000)
committerdjk <djk>
Sun, 31 Oct 1999 22:09:18 +0000 (22:09 +0000)
perl/console.pl

index cec17ab4495b5fc2e14833df17cf2b6b7de174f6..a0e4f1087a676825397a46a0e2a0fb8cb19b9ff2 100755 (executable)
@@ -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);