tests: use File::Temp->newdir instead of tempdir()

[public-inbox.git] / t / mda.t

diff --git a/t/mda.t b/t/mda.t
index 89dedd4a05458a2851530294c1543c5fcfaf20c8..47d061322744be3c8745b4f84f9b80c8f6bab94e 100644 (file)
--- a/t/mda.t
+++ b/t/mda.t
@@ -4,12 +4,11 @@ use strict;
 use warnings;
 use Test::More;
 use Email::MIME;
-use File::Temp qw/tempdir/;
 use Cwd qw(getcwd);
 use PublicInbox::MID qw(mid2path);
 use PublicInbox::Git;
 require './t/common.perl';
-my $tmpdir = tempdir('pi-mda-XXXXXX', TMPDIR => 1, CLEANUP => 1);
+my ($tmpdir, $for_destroy) = tmpdir();
 my $home = "$tmpdir/pi-home";
 my $pi_home = "$home/.public-inbox";
 my $pi_config = "$pi_home/config";