X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=b8824cf4d43923290e35ac16f1e58c189bae5790;hb=23eb40f3ca578c64cf140589eb08ab5a5b228d8e;hp=e93370dd108c7d40e57cdcbe64212a845131cea4;hpb=757d8a7050e2f4acfc5c39c5d750de218bc4451d;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index e93370dd..b8824cf4 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;