fxied infinite loop

diff --git a/perl/client.pl b/perl/client.pl
index a7185ab208de387c0a58df593ca3c4597e2a5151..459c26323a34480131247918043d9124649962dd 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -270,6 +270,10 @@ sub dochat
                                $line = <$rfh>;
                                $line =~ s/\r//og;
                        }
+                       if (length $line == 0) {
+                               dbg('connect', "received 0 length line, aborting...");
+                               cease(11);
+                       }
                        dbg('connect', "received \"$line\"");
                        if ($abort && $line =~ /$abort/i) {
                                dbg('connect', "aborted on /$abort/");

diff --git a/perl/console.pl b/perl/console.pl
index ceac24e278890d1275fa6f904761d1993355061e..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];