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

[public-inbox.git] / t / common.perl

diff --git a/t/common.perl b/t/common.perl
index 2126a76106e94e4c5abebf9ceca1096c949e9184..0ff5de4a7161d97bd1ad6b8df715084ce6c3c7d6 100644 (file)
--- a/t/common.perl
+++ b/t/common.perl
@@ -7,6 +7,16 @@ use strict;
 use warnings;
 use IO::Socket::INET;
 
+sub tmpdir (;$) {
+       my ($base) = @_;
+       require File::Temp;
+       unless (defined $base) {
+               ($base) = ($0 =~ m!\b([^/]+)\.[^\.]+\z!);
+       }
+       my $tmpdir = File::Temp->newdir("pi-$base-$$-XXXXXX", TMPDIR => 1);
+       ($tmpdir->dirname, $tmpdir);
+}
+
 sub tcp_server () {
        IO::Socket::INET->new(
                LocalAddr => '127.0.0.1',