[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);
}