X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FExtMsg.pm;h=064bd90af487df88730f7cd8b465115e1f1042c8;hb=cbb522ef802d48991734a4ce803fa6ffa9774588;hp=6b3a30b1c0f00624fa573fc79c35cba28eb314a4;hpb=e49e641d1a518e4f3b4308e078e06653e0b91a38;p=spider.git

diff --git a/perl/ExtMsg.pm b/perl/ExtMsg.pm
index 6b3a30b1..064bd90a 100644
--- a/perl/ExtMsg.pm
+++ b/perl/ExtMsg.pm
@@ -107,6 +107,8 @@ sub dequeue
 		} else {
 			$conn->{msg} =~ s/([^\cM\cJ]*)\cM?\cJ//g;
 		}
+		$conn->{linesin} += @lines;
+		$Msg::total_lines_in += @lines;
 		while (defined ($msg = shift @lines)) {
 			dbg("connect $conn->{cnum}: $msg") if $conn->{state} ne 'C' && isdbg('connect');