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