From 52d88842ad08288c8921d61c9d92f1de9265592c Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 29 Nov 2013 11:37:27 -0800
Subject: [PATCH] set cleanup=>1 and use remove_tree instead to hopefully clean
 up tempdir residue

---
 Debbugs/MIME.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index 15078f2..f2868a9 100644
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -49,8 +49,8 @@ BEGIN {
     $EXPORT_TAGS{all} = [@EXPORT_OK];
 }
 
-use File::Path;
-use File::Temp qw();
+use File::Path qw(remove_tree);
+use File::Temp qw(tempdir);
 use MIME::Parser;
 
 use POSIX qw(strftime);
@@ -94,7 +94,7 @@ sub parse
     my (@headerlines, @bodylines);
 
     my $parser = MIME::Parser->new();
-    my $tempdir = File::Temp::tempdir();
+    my $tempdir = tempdir(CLEANUP => 1);
     $parser->output_under($tempdir);
     my $entity = eval { $parser->parse_data($_[0]) };
 
@@ -135,7 +135,7 @@ sub parse
 	@bodylines = map {convert_to_utf8($_,$charset)} @msg[$i .. $#msg];
     }
 
-    rmtree $tempdir, 0, 1;
+    remove_tree($tempdir,{verbose => 0, safe => 1});
 
     # Remove blank lines.
     shift @bodylines while @bodylines and $bodylines[0] !~ /\S/;
-- 
2.39.2