X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fconsole.pl;h=887600e31ee6438ca9f96188b13fd5c2e60b5d93;hb=d49641602b7abfa832d6baaf18dc15969040083e;hp=8a1c8719f8b7f24d1423c26f328c154c242e6714;hpb=82de56e409a19a05761794c9588713160b51144e;p=spider.git

diff --git a/perl/console.pl b/perl/console.pl
index 8a1c8719..887600e3 100755
--- 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
 {
-	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();
 }
 
@@ -426,7 +428,7 @@ Msg->set_event_handler(\*STDIN, "read" => \&rec_stdin);
 
 for (;;) {
 	my $t;
-	Msg->event_loop(1, 0.010);
+	Msg->event_loop(1, 1);
 	$top->refresh() if $top->is_wintouched;
 	$bot->refresh();
 	$t = time;