You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@spamassassin.apache.org by si...@apache.org on 2006/04/08 06:58:13 UTC

svn commit: r392480 - in /spamassassin/trunk/lib/Mail/SpamAssassin: DnsResolver.pm Plugin/URIDNSBL.pm

Author: sidney
Date: Fri Apr  7 21:58:12 2006
New Revision: 392480

URL: http://svn.apache.org/viewcvs?rev=392480&view=rev
Log:
bug 4859: plug memory leak. Even though it was released when child ended it limited the practical max number of children

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

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm?rev=392480&r1=392479&r2=392480&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm Fri Apr  7 21:58:12 2006
@@ -426,6 +426,19 @@
 
 ###########################################################################
 
+=item $res->bgabort()
+
+Call this to release pending requests from memory when aborting backgrounded requests
+
+=cut
+
+sub bgabort {
+  my ($self) = @_;
+  $self->{id_to_callback} = {};
+}
+
+###########################################################################
+
 =item $packet = $res->send($name, $type, $class)
 
 Emulates C<Net::DNS::Resolver::send()>.

Modified: spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm
URL: http://svn.apache.org/viewcvs/spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm?rev=392480&r1=392479&r2=392480&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin/Plugin/URIDNSBL.pm Fri Apr  7 21:58:12 2006
@@ -802,6 +802,7 @@
 
     delete $pending->{$key};
   }
+  $self->{main}->{resolver}->bgabort();
 }
 
 # ---------------------------------------------------------------------------