X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=c9395e3e4d5dd0471f17e71dcc978fdeda482f92;hb=1483f78fa8fff9f1d97e59127064f1e5d84da78c;hp=e93370dd108c7d40e57cdcbe64212a845131cea4;hpb=e105f2c0817d027771be14a656cf5b59a5ae5828;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index e93370dd..c9395e3e 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -359,7 +359,8 @@ sub send_now
         my @lines = split /\n/;
 		for (@lines) {
 			$conn->send_now("$sort$call|$_");
-			dbg("-> $sort $call $_") if isdbg('chan');
+			# debug log it, but not if it is a log message
+			dbg("-> $sort $call $_") if $sort ne 'L' && isdbg('chan');
 		}
 	}
 	$self->{t} = time;
@@ -382,7 +383,8 @@ sub send_later
         my @lines = split /\n/;
 		for (@lines) {
 			$conn->send_later("$sort$call|$_");
-			dbg("-> $sort $call $_") if isdbg('chan');
+			# debug log it, but not if it is a log message
+			dbg("-> $sort $call $_") if $sort ne 'L' isdbg('chan');
 		}
 	}
 	$self->{t} = time;