X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=ba0e6b8eadf520d92f78ecde2219ae49bc903a1d;hb=601ea9fb47810209aeedef1a3041df5a916964f3;hp=b64318ff19c01d68f6d5312403493d056a81c1bf;hpb=a14ec73fc5df0cca9caf89f16c16459f5d406e42;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index b64318ff..ba0e6b8e 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -289,7 +289,7 @@ sub _send_stuff
 		}
 		if (defined $sock) {
 			$sock->write($data);
-			$total_out = $lth;
+			$total_out += $lth;
 		} else {
 			dbg("_send_stuff $call ending data ignored: $data");
 		}
@@ -378,6 +378,8 @@ sub _rcv {                     # Complement to _send
     my $sock = $conn->{sock};
     return unless defined($sock);
 
+	$total_in += length $msg;
+
 	my @lines;
 	if (isdbg('raw')) {
 		my $call = $conn->{call} || 'none';