change the scope of tempdir so that it stays in scope until after display_entity...

[debbugs.git] / Debbugs / CGI / Bugreport.pm

diff --git a/Debbugs/CGI/Bugreport.pm b/Debbugs/CGI/Bugreport.pm
index f080986a4389df895ee600e882ff862c6b27e6f8..0d7658e574f9ee8369c0bbc07c133e0795512563 100644 (file)
--- a/Debbugs/CGI/Bugreport.pm
+++ b/Debbugs/CGI/Bugreport.pm
@@ -318,12 +318,14 @@ sub handle_email_message{
      my $output;
      my $output_fh = globify_scalar(\$output);
      my $entity;
+     my $tempdir;
      if (not blessed $email) {
          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
+         $tempdir = File::Temp->newdir();
+         $parser->output_under($tempdir->dirname());
          $entity = $parser->parse_data( $email);
      } else {
          $entity = $email