projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added auto ping and obs count to dxchan
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index ceac24e278890d1275fa6f904761d1993355061e..887600e31ee6438ca9f96188b13fd5c2e60b5d93 100755
(executable)
--- a/
perl/console.pl
+++ b/
perl/console.pl
@@
-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();
}