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

Don't trap $self in the closure (causes circular refs and never gets freed)

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@596 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-12-31 14:53:50 +00:00
parent e440b7bd65
commit 1c2009764f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/Danga/DNS/Resolver.pm
View File

@ -76,8 +76,9 @@ sub _query {
if (exists($self->{cache}{$type}{$host}) && if (exists($self->{cache}{$type}{$host}) &&
$self->{cache_timeout}{$type}{$host} >= $now) { $self->{cache_timeout}{$type}{$host} >= $now) {
# print "CACHE HIT!\n"; # print "CACHE HIT!\n";
my $result = $self->{cache}{$type}{$host};
$self->AddTimer(0, sub { $self->AddTimer(0, sub {
$asker->run_callback($self->{cache}{$type}{$host}, $host); $asker->run_callback($result, $host);
}); });
return 1; return 1;
} }