X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FIntMsg.pm;h=4361b7b59c13a50c84e3e86e4cc561ae9aba719c;hp=e5f05ff12f1e5dd48f2bbca56a40683675549912;hb=cbb522ef802d48991734a4ce803fa6ffa9774588;hpb=e49e641d1a518e4f3b4308e078e06653e0b91a38

diff --git a/perl/IntMsg.pm b/perl/IntMsg.pm
index e5f05ff1..4361b7b5 100644
--- a/perl/IntMsg.pm
+++ b/perl/IntMsg.pm
@@ -40,6 +40,8 @@ sub dequeue
 		} else {
 			$conn->{msg} =~ s/([^\cM\cJ]*)\cM?\cJ//g;
 		}
+		$conn->{linesin} += @lines;
+		$Msg::total_lines_in += @lines;
 		for (@lines) {
 			if (defined $_) {
 				s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg;