[svn:qpsmtpd] rev 396 - branches/high_perf/lib/Danga

[email protected] 11 Mar 2005 20:09:30 -0000
Newsgroups perl.cvs.qpsmtpd
Message-ID <[email protected]>
Author: msergeant
Date: Fri Mar 11 12:09:30 2005
New Revision: 396

Modified:
   branches/high_perf/lib/Danga/DNS.pm
Log:
Fix timeout code kicking in when PTR result is blank domain


Modified: branches/high_perf/lib/Danga/DNS.pm
==============================================================================
--- branches/high_perf/lib/Danga/DNS.pm	(original)
+++ branches/high_perf/lib/Danga/DNS.pm	Fri Mar 11 12:09:30 2005
@@ -92,7 +92,7 @@
     my Danga::DNS $self = shift;
     my $now = time;
     foreach my $host (@{$self->{hosts}}) {
-        if (!$self->{results}{$host}) {
+        if (!exists($self->{results}{$host})) {
             print STDERR "DNS timeout (presumably) looking for $host after " . ($now - $self->{start}) . " secs\n";
             $self->{callback}->("NXDOMAIN", $host);
         }