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

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

diff --git a/t/init.t b/t/init.t
index 2442eeec7fbcb43a5ee9767230da9c4081848126..165508683690cd5b717b360baec8e14fc625a788 100644 (file)
--- a/t/init.t
+++ b/t/init.t
@@ -4,10 +4,9 @@ use strict;
 use warnings;
 use Test::More;
 use PublicInbox::Config;
-use File::Temp qw/tempdir/;
 require './t/common.perl';
-my $tmpdir = tempdir('pi-init-XXXXXX', TMPDIR => 1, CLEANUP => 1);
 use File::Basename;
+my ($tmpdir, $for_destroy) = tmpdir();
 sub quiet_fail {
        my ($cmd, $msg) = @_;
        my $err = '';