improve dbg tagging and dbgdump, Add call to conns

[spider.git] / perl / Msg.pm

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 81c2e40a0090aa09ecdeba30e94dd01ae6cd70a6..3e30372ff1111bbac4923b6837c5a01618d8d620 100644 (file)
--- 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);