X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAGWMsg.pm;fp=perl%2FAGWMsg.pm;h=41f23702abd7ab5b79ea6fcd1fa82012867c89ca;hb=59e9f019432790d60afcbc96e490375e6a544dbc;hp=a2a353f42e47c394bc5cb128b6826cbd26dbfe5c;hpb=f27e9460a85b5ba3ec8b51d14808220023b70917;p=spider.git

diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index a2a353f4..41f23702 100644
--- a/perl/AGWMsg.pm
+++ b/perl/AGWMsg.pm
@@ -157,6 +157,9 @@ sub _send
                     return 0; # fail. Message remains in queue ..
                 }
             }
+			if (isdbg('raw')) {
+				dbgdump('raw', "send $bytes_written: ", $msg);
+			}
             $offset         += $bytes_written;
             $bytes_to_write -= $bytes_written;
         }
@@ -183,8 +186,9 @@ sub _rcv {                     # Complement to _send
 	if (defined ($bytes_read)) {
 		if ($bytes_read > 0) {
 			$inmsg .= $msg;
-#			$msg =~ s/([\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg; 
-#			dbg('connll', $msg);
+			if (isdbg('raw')) {
+				dbgdump('raw', "read $bytes_read: ", $msg);
+			}
 		} 
 	} else {
 		if (Msg::_err_will_block($!)) {