diff options
| author |   William Heimbigner <william.heimbigner@gmail.com> | 2015-12-25 21:52:37 +0400 |
|---|---|---|
| committer | William Heimbigner <william.heimbigner@gmail.com> | 2015-12-25 21:52:37 +0400 |
| commit | 3ad48471cdaec8059be4945606d97c019f2e4ce0 (patch) | |
| tree | b921b20df890e38c0a7b5638fc42912ad40dcbc7 /lib/ASM/Classes.pm | |
| parent | 8aa897dc2ed6f342517daf97aaac881aa4fe62f4 (diff) | |
General code cleanup (removing unused functions / old commented out code / etc.)
Diffstat (limited to 'lib/ASM/Classes.pm')
| -rw-r--r-- | lib/ASM/Classes.pm | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/lib/ASM/Classes.pm b/lib/ASM/Classes.pm index 325b71d..2fae035 100644 --- a/lib/ASM/Classes.pm +++ b/lib/ASM/Classes.pm @@ -5,7 +5,6 @@ use warnings; use Text::LevenshteinXS qw(distance); use Data::Dumper; use Regexp::Wildcards; -use Carp qw(cluck); my %sf = (); @@ -193,7 +192,6 @@ sub dnsbl # 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; |