Add a ring buffer to debugging + other things

[spider.git] / perl / DXLog.pm

diff --git a/perl/DXLog.pm b/perl/DXLog.pm
index 9ec12fd3916f6eb044d3b5949eedba4c36223197..287b766e8bdf95ad72614e49b6d997939eebb8ff 100644 (file)
--- a/perl/DXLog.pm
+++ b/perl/DXLog.pm
@@ -212,8 +212,9 @@ sub Log
 
 sub LogDbg
 {
+       my $cat = shift;
        DXDebug::dbg($_) for @_;
-       Log(@_);
+       Log($cat, @_);
 }
 
 sub Logclose