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

diff --git a/perl/console.pl b/perl/console.pl
index ceac24e2..cec17ab4 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -137,7 +137,7 @@ sub measure
 # display the top screen
 sub show_screen
 {
-	if ($spos == @shistory - 1) {
+	if ($spos >= @shistory - 1) {
 
 		# if we really are scrolling thru at the end of the history
 		my $line = $shistory[$spos];