modules/classes.pl: remove a return in the dnsbl code

1 files changed, 3 insertions, 1 deletions

diff --git a/modules/classes.pl b/modules/classes.pl
index 2d580b3..a8a1e64 100644
--- a/modules/classes.pl
+++ b/modules/classes.pl
@@ -5,6 +5,7 @@ use warnings;
 use Text::LevenshteinXS qw(distance);
 use Data::Dumper;
 use Regexp::Wildcards;
+use Carp qw(cluck);
 
 my %sf = ();
 
@@ -188,9 +189,10 @@ sub dnsbl
 #  return unless index($event->{host}, '/') == -1;
 #  hopefully getting rid of this won't cause shit to assplode
 #  but I'm getting rid of it so it can detect cgi:irc shit
-  return 0;
+#  return 0;
   if (defined $rev) {
     ASM::Util->dprint("Querying $rev$chk->{content}", "dnsbl");
+    #cluck "Calling gethostbyname in dnsbl";
     my $iaddr = gethostbyname( "$rev$chk->{content}" );
     my @dnsbl = unpack( 'C4', $iaddr ) if defined $iaddr;
     my $strip;