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

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

diff --git a/t/admin.t b/t/admin.t
index 0024df1516c2fd0ad8401abd5dc7c7c41e503634..6458982bd662dccee6b241f86996f42b37d3d8fe 100644 (file)
--- a/t/admin.t
+++ b/t/admin.t
@@ -3,9 +3,9 @@
 use strict;
 use warnings;
 use Test::More;
-use File::Temp qw(tempdir);
+require './t/common.perl';
 use_ok 'PublicInbox::Admin', qw(resolve_repo_dir);
-my $tmpdir = tempdir('pi-admin.XXXXXX', TMPDIR => 1, CLEANUP => 1);
+my ($tmpdir, $for_destroy) = tmpdir();
 my $git_dir = "$tmpdir/v1";
 my $v2_dir = "$tmpdir/v2";
 my ($res, $err, $v);