From 63b835e550579b59c15232aabea7820d8bb81560 Mon Sep 17 00:00:00 2001
From: unknown <unknown@unknown.invalid>
Date: Sun, 1 Mar 2015 06:12:47 +0400
Subject: modules/classes.pl: remove a return in the dnsbl code

---
 modules/classes.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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;
-- 
cgit v1.2.3