X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;fp=perl%2FMsg.pm;h=3e30372ff1111bbac4923b6837c5a01618d8d620;hb=c8a6bc3e45bfbbaad776f4a6f22b3e501c8fc1c9;hp=81c2e40a0090aa09ecdeba30e94dd01ae6cd70a6;hpb=f4ce9b1afbcaeda10e0497b0d2b33fef0a4a5245;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 81c2e40a..3e30372f 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -345,9 +345,7 @@ sub _send_stuff
 		my $lth = length $data;
 		my $call = $conn->{call} || 'none';
 		if (isdbg('raw')) {
-			if (isdbg('raw')) {
-				dbgdump('raw', "$call send $lth: ", $lth);
-			}
+			dbgdump('raw', "$call send $lth:", $data);
 		}
 		if (defined $sock) {
 			$sock->write($data);