purge Email::Address cache

This prevents memory bloat in case we're serving many requests
with a large, diverse set of email addresses (potentially from
malicious spammers).

1 files changed, 5 insertions, 0 deletions

diff --git a/lib/PublicInbox/Feed.pm b/lib/PublicInbox/Feed.pm
index d535cea9..6b317ab0 100644
--- a/lib/PublicInbox/Feed.pm
+++ b/lib/PublicInbox/Feed.pm
@@ -43,6 +43,8 @@ sub generate {
                 my ($add) = @_;
                 add_to_feed($feed_opts, $feed, $add, $git);
         });
+        $git = undef; # destroy pipes
+        Email::Address->purge_cache;
         $feed->as_string;
 }
 
@@ -68,6 +70,7 @@ sub generate_html_index {
                 push @messages, $mime;
                 1;
         });
+        $git = undef; # destroy pipes.
 
         my $th = Mail::Thread->new(@messages);
         $th->thread;
@@ -85,6 +88,8 @@ sub generate_html_index {
         });
         dump_html_line($_, 0, \$html) for $th->rootset;
 
+        Email::Address->purge_cache;
+
         my $footer = nav_footer($args->{cgi}, $last);
         $footer = "<hr /><pre>$footer</pre>" if $footer;
         $html . "</pre>$footer</html>";