X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=a0e4f1087a676825397a46a0e2a0fb8cb19b9ff2;hb=a5bd8a3c8ddca2ceb8ec805465d1b9b53f6812da;hp=cec17ab4495b5fc2e14833df17cf2b6b7de174f6;hpb=ce2e3045bad021ba833c91dcc45b779a57752960;p=spider.git

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);