X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fclient.pl;h=459c26323a34480131247918043d9124649962dd;hb=bca5cd40374f12da5e0d46980e54bffc61fdc9c9;hp=376587645c8599abb15b2bb43ac82238afad2722;hpb=918827ec5a9023edeb2ce0140692566591af0af8;p=spider.git

diff --git a/perl/client.pl b/perl/client.pl
index 37658764..459c2632 100755
--- 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/");
@@ -493,7 +497,7 @@ Msg->set_event_handler($stdin, "read" => \&rec_stdin);
 
 for (;;) {
 	my $t;
-	Msg->event_loop(1, 0.010);
+	Msg->event_loop(1, 1);
 	$t = time;
 	if ($t > $lasttime) {
 		if ($outqueue) {