projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removed ~ from the end of a PC18
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index a0e4f1087a676825397a46a0e2a0fb8cb19b9ff2..ceac24e278890d1275fa6f904761d1993355061e 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-137,10
+137,9
@@
sub measure
# display the top screen
sub show_screen
{
# 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
# 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);
my $line = $shistory[$spos];
$top->addstr("\n") if $spos > 0;
setattr($line);