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

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

diff --git a/t/cgi.t b/t/cgi.t
index 3c09ecd619f6214379a3cb5f7bc6aa63b514b8de..62cea49967d7fe0f9866eac0b15a803e929e614e 100644 (file)
--- a/t/cgi.t
+++ b/t/cgi.t
@@ -6,9 +6,8 @@ use strict;
 use warnings;
 use Test::More;
 use Email::MIME;
-use File::Temp qw/tempdir/;
 require './t/common.perl';
-my $tmpdir = tempdir('pi-cgi-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";