X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FBadWords.pm;h=05e764fce9906f928dff56440fa83cf117a7d3c5;hb=f415973f5f2afa49403e76a1fc1dec29a71be950;hp=b598c385d4e940f45716a4f2f35c303ad9b46e1e;hpb=c77ea09e91a5f7c3052e3e30dfb48fcaad1e0dcd;p=spider.git

diff --git a/perl/BadWords.pm b/perl/BadWords.pm
index b598c385..05e764fc 100644
--- a/perl/BadWords.pm
+++ b/perl/BadWords.pm
@@ -102,7 +102,6 @@ sub check
 	my $s = uc shift;
 	my @out;
 
-	dbg($s) if isdbg('badword');
 	push @out, &$regexcode($s) if $regexcode;
 	
 	return @out if @out;