diff -Nur -x '*.orig' -x '*.rej' spamassassin-botnet-0.8/Botnet.pm mezzanine_patched_spamassassin-botnet-0.8/Botnet.pm
--- spamassassin-botnet-0.8/Botnet.pm	2007-08-05 19:53:55.000000000 -0600
+++ mezzanine_patched_spamassassin-botnet-0.8/Botnet.pm	2007-08-27 14:18:43.000000000 -0600
@@ -710,7 +710,16 @@
         ($type =~ /^(?:A|MX)$/) &&
         (defined $max) &&
         ($max =~ /^-?\d+$/) ) {
-      $resolver = Net::DNS::Resolver->new();
+       $resolver = Net::DNS::Resolver->new(
+               udp_timeout => 5,
+               tcp_timeout => 5,
+               retrans => 0,
+               retry => 1,
+               persistent_tcp => 0,
+               persistent_udp => 0,
+               dnsrch => 0,
+               defnames => 0,
+       );
       if ($query = $resolver->search($name, $type)) {
          # found matches
          $i = 0;
@@ -833,7 +842,16 @@
 sub get_rdns {
    my ($ip) = @_;
    my ($query, @answer, $rr);
-   my $resolver = Net::DNS::Resolver->new();
+   my $resolver = Net::DNS::Resolver->new(
+       udp_timeout => 5,
+       tcp_timeout => 5,
+       retrans => 0,
+       retry => 1,
+       persistent_tcp => 0,
+       persistent_udp => 0,
+       dnsrch => 0,
+       defnames => 0,
+       );
    my $name = "";
 
    if ($query = $resolver->query($ip, 'PTR', 'IN')) {