projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added offest to outgoing ping times
[spider.git]
/
perl
/
console.pl
diff --git
a/perl/console.pl
b/perl/console.pl
index 8a1c8719f8b7f24d1423c26f328c154c242e6714..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();
}
@@
-426,7
+428,7
@@
Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
for (;;) {
my $t;
for (;;) {
my $t;
- Msg->event_loop(1,
0.010
);
+ Msg->event_loop(1,
1
);
$top->refresh() if $top->is_wintouched;
$bot->refresh();
$t = time;
$top->refresh() if $top->is_wintouched;
$bot->refresh();
$t = time;