projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removed more 5.004 ambiguities including making the format of data
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index cec17ab4495b5fc2e14833df17cf2b6b7de174f6..887600e31ee6438ca9f96188b13fd5c2e60b5d93 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-137,7
+137,7
@@
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
my $line = $shistory[$spos];
# if we really are scrolling thru at the end of the history
my $line = $shistory[$spos];
@@
-188,9
+188,11
@@
sub show_screen
# add a line to the end of the top screen
sub addtotop
{
# add a line to the end of the top screen
sub addtotop
{
- my $inbuf = shift;
- push @shistory, $inbuf;
- shift @shistory if @shistory > $maxshist;
+ while (@_) {
+ my $inbuf = shift;
+ push @shistory, $inbuf;
+ shift @shistory if @shistory > $maxshist;
+ }
show_screen();
}
show_screen();
}