also use a filesystem in handle_email_message to avoid running out of memory

diff --git a/Debbugs/CGI/Bugreport.pm b/Debbugs/CGI/Bugreport.pm
index f080986a4389df895ee600e882ff862c6b27e6f8..64211884e1ac47d1e41961d267361801be82d9eb 100644 (file)
--- a/Debbugs/CGI/Bugreport.pm
+++ b/Debbugs/CGI/Bugreport.pm
@@ -322,8 +322,9 @@ sub handle_email_message{
          my $parser = MIME::Parser->new();
          # Because we are using memory, not tempfiles, there's no need to
          # clean up here like in Debbugs::MIME
-         $parser->tmp_to_core(1);
-         $parser->output_to_core(1);
+         # this will be cleaned up once it goes out of scope
+         my $tempdir = File::Temp->newdir();
+         $parser->output_under($tempdir->dirname());
          $entity = $parser->parse_data( $email);
      } else {
          $entity = $email