X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FAsyncMsg.pm;h=f8cd2f9f3b60bea14be79d24029a69049b685a9c;hb=7e3729a9039462c460dae4804f40c0bd506f3423;hp=cb1c2f2bdc64a228f6b5c76bd6d3fcc8c047b800;hpb=057580c6b9b77fece532a02d3df7b5a5b1af1054;p=spider.git

diff --git a/perl/AsyncMsg.pm b/perl/AsyncMsg.pm
index cb1c2f2b..f8cd2f9f 100644
--- a/perl/AsyncMsg.pm
+++ b/perl/AsyncMsg.pm
@@ -277,6 +277,19 @@ sub disconnect
 	$conn->SUPER::disconnect;
 }
 
+sub _send_later
+{
+	my $conn = shift;
+	my $m = shift;
+	
+	if (isdbg('async')) {
+		my $s = $m;
+		$s =~ s/([\%\x00-\x1f\x7f-\xff])/sprintf("%%%02X", ord($1))/eg;
+		dbg("AsyncMsg: send $s");
+	}
+	$conn->send_later($m);
+}
+
 sub DESTROY
 {
 	my $conn = shift;