svn commit: r833081 - /spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm

[mm...@apache.org]

Author: mmartinec
Date: Thu Nov  5 17:03:50 2009
New Revision: 833081

URL: http://svn.apache.org/viewvc?rev=833081&view=rev
Log:
Bug 6232, a quick workaround hack to Net::DNS inconsistency

Modified:
    spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm?rev=833081&r1=833080&r2=833081&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm Thu Nov  5 17:03:50 2009
@@ -317,7 +317,7 @@
   $self->connect_sock_if_reqd();
   my $packet;
   eval {
-    $packet = Net::DNS::Packet->new($host, $type, $class);
+    $packet = Net::DNS::Packet->new(Net::DNS::stripdot($host), $type, $class);
 
     # a bit noisy, so commented by default...
     #dbg("dns: new DNS packet time=%s host=%s type=%s id=%s",
@@ -398,6 +398,7 @@
     return;
   }
   my $id = $self->_packet_id($pkt);
+  dbg("dns: providing a callback for id: $id");
   $self->{id_to_callback}->{$id} = $cb;
   return $id;
 }