X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;fp=perl%2FDXLog.pm;h=a332d39208336c26c5c9c012bc4a3a7b6ac6959a;hb=5094a0b55d903d344277adf9d26b5af8e37247d8;hp=439518c26ff08c588c00243dac0e533130f75775;hpb=54775ee86e54343a0fba66a0bbca3567de96cf46;p=spider.git

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index 439518c2..a332d392 100644
--- a/perl/DXLog.pm
+++ b/perl/DXLog.pm
@@ -220,8 +220,11 @@ sub Log
 sub LogDbg
 {
 	my $cat = shift;
-	DXDebug::dbg($_) for @_;
-	Log($cat, @_);
+	foreach my $m (@_) {
+		DXDebug::dbgsetcat($cat);
+		DXDebug::dbg($m);
+		Log($cat, $m);
+	}
 }
 
 sub Logclose