byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix timeout code kicking in when PTR result is blank domain

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/branches/high_perf@396 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-03-11 20:09:30 +00:00
parent 41e13e7454
commit ed4e06bcd2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Danga/DNS.pm
View File

@ -92,7 +92,7 @@ sub DESTROY {
my Danga::DNS $self = shift; my Danga::DNS $self = shift;
my $now = time; my $now = time;
foreach my $host (@{$self->{hosts}}) { 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"; print STDERR "DNS timeout (presumably) looking for $host after " . ($now - $self->{start}) . " secs\n";
$self->{callback}->("NXDOMAIN", $host); $self->{callback}->("NXDOMAIN", $host);
} }