remove debugging

diff --git a/perl/BadWords.pm b/perl/BadWords.pm
index b598c385d4e940f45716a4f2f35c303ad9b46e1e..05e764fce9906f928dff56440fa83cf117a7d3c5 100644 (file)
--- 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;