projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b9442c2
)
fxied infinite loop
author
djk
<djk>
Sun, 31 Oct 1999 21:59:59 +0000
(21:59 +0000)
committer
djk
<djk>
Sun, 31 Oct 1999 21:59:59 +0000
(21:59 +0000)
perl/client.pl
patch
|
blob
|
history
perl/console.pl
patch
|
blob
|
history
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;
}
$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/");
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
{
# 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];
# if we really are scrolling thru at the end of the history
my $line = $shistory[$spos];