From: djk <djk>
Date: Mon, 1 Nov 1999 11:48:29 +0000 (+0000)
Subject: fixed console back again
X-Git-Tag: R_1_34~19
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a89e605f6679f19b1365061bad1ba93b36293814;p=spider.git

fixed console back again
---

diff --git a/perl/console.pl b/perl/console.pl
index a0e4f108..ceac24e2 100755
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -137,10 +137,9 @@ 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
-		$spos = @shistory - 1 if $spos >= @shistory;
 		my $line = $shistory[$spos];
 		$top->addstr("\n") if $spos > 0;
 		setattr($line);