view: purge email address cache after rendering thread

We cannot allow memory in the cache to grow at an unbounded
rate in between HTTP requests.

diff --git a/lib/PublicInbox/View.pm b/lib/PublicInbox/View.pm
index 116f36e732374fe62fc1b7ffe79d6677136d30ff..6aa199e6de600fe4137218a8c1c84c52c691b8cb 100644 (file)
--- a/lib/PublicInbox/View.pm
+++ b/lib/PublicInbox/View.pm
@@ -157,6 +157,7 @@ sub emit_thread_html {
                my $git = PublicInbox::GitCatFile->new($ctx->{git_dir});
                thread_entry($fh, $git, $state, $_, 0) for $th->rootset;
        }
+       Email::Address->purge_cache;
        my $final_anchor = $state->{anchor_idx};
        my $next = "<a\nid=\"s$final_anchor\">";
        $next .= $final_anchor == 1 ? 'only message in' : 'end of';