This prevents memory bloat in case we're serving many requests
with a large, diverse set of email addresses (potentially from
malicious spammers).
my ($add) = @_;
add_to_feed($feed_opts, $feed, $add, $git);
});
my ($add) = @_;
add_to_feed($feed_opts, $feed, $add, $git);
});
+ $git = undef; # destroy pipes
+ Email::Address->purge_cache;
push @messages, $mime;
1;
});
push @messages, $mime;
1;
});
+ $git = undef; # destroy pipes.
my $th = Mail::Thread->new(@messages);
$th->thread;
my $th = Mail::Thread->new(@messages);
$th->thread;
});
dump_html_line($_, 0, \$html) for $th->rootset;
});
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>";
my $footer = nav_footer($args->{cgi}, $last);
$footer = "<hr /><pre>$footer</pre>" if $footer;
$html . "</pre>$footer</html>";
+ Email::Address->purge_cache;
my $subj = $mime->header('Subject') || '';
$subj = "Re: $subj" unless $subj =~ /\bRe:/;
my $subj = $mime->header('Subject') || '';
$subj = "Re: $subj" unless $subj =~ /\bRe:/;