X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLog.pm;h=a332d39208336c26c5c9c012bc4a3a7b6ac6959a;hb=3f7f9d8e9e296c4598239f15b8014311d0ba7343;hp=439518c26ff08c588c00243dac0e533130f75775;hpb=e092b3748fa8f58e626a0a379bdee05996f69c27;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