X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDebug.pm;h=3ab7c77084693ec3ff41bbfae672a800fba90ddb;hb=54939e890b7452f179003e54ecfc273bebe33390;hp=f249282e5b57e5d69399de8ece3cde3d5e1763f6;hpb=eba7370bb0458ae84b4815f30494a7c389008d0e;p=spider.git

diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm
index f249282e..3ab7c770 100644
--- a/perl/DXDebug.pm
+++ b/perl/DXDebug.pm
@@ -25,10 +25,11 @@
 package DXDebug;
 
 use 5.10.1;
+use warnings;
 
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT = qw(dbginit dbg dbgadd dbgsub dbglist dbgdump isdbg dbgclose dbgtrace dbgprintring confess croak cluck carp);
+@EXPORT = qw(dbginit dbg dbgadd dbgsub dbglist dbgdump isdbg dbgclose dbgtrace dbgprintring dbgsetcat confess croak cluck carp);
 
 use strict;
 use vars qw(%dbglevel $fp $callback $cleandays $keepdays $dbgringlth);
@@ -297,6 +298,12 @@ sub dbgclean
 	}
 }
 
+# force a category for the next (unconditional) dbg message (replace (*) with (<something>))
+sub dbgsetcat
+{
+	$_isdbg = shift;
+}
+
 1;
 __END__