From c0d8e83c1aec804009e527000cc2675d0368023a Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 21 Jul 2009 19:59:35 +0200
Subject: [PATCH] use File::Temp in Debbugs::MIME

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

diff --git a/Debbugs/MIME.pm b/Debbugs/MIME.pm
index cfab123..2e1d611 100644
--- a/Debbugs/MIME.pm
+++ b/Debbugs/MIME.pm
@@ -40,6 +40,7 @@ BEGIN {
 }
 
 use File::Path;
+use File::Temp qw();
 use MIME::Parser;
 
 use POSIX qw(strftime);
@@ -83,8 +84,8 @@ sub parse
     my (@headerlines, @bodylines);
 
     my $parser = MIME::Parser->new();
-    mkdir "mime.tmp.$$", 0777;
-    $parser->output_under("mime.tmp.$$");
+    my $tempdir = File::Temp::tempdir();
+    $parser->output_under($tempdir);
     my $entity = eval { $parser->parse_data($_[0]) };
 
     if ($entity and $entity->head->tags) {
@@ -112,7 +113,7 @@ sub parse
 	@bodylines = @msg[$i .. $#msg];
     }
 
-    rmtree "mime.tmp.$$", 0, 1;
+    rmtree $tempdir, 0, 1;
 
     # Remove blank lines.
     shift @bodylines while @bodylines and $bodylines[0] !~ /\S/;
-- 
2.39.2