fxied infinite loop

[spider.git] / perl / console.pl

diff --git a/perl/console.pl b/perl/console.pl
index 8a1c8719f8b7f24d1423c26f328c154c242e6714..cec17ab4495b5fc2e14833df17cf2b6b7de174f6 100755 (executable)
--- a/perl/console.pl
+++ b/perl/console.pl
@@ -137,7 +137,7 @@ sub measure
 # 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];
@@ -426,7 +426,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;