X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fcommon.perl;h=0ff5de4a7161d97bd1ad6b8df715084ce6c3c7d6;hb=ad6f26f3b9f0e428020d05667987556f8fcbec2f;hp=2126a76106e94e4c5abebf9ceca1096c949e9184;hpb=2a3e3a0469f54f6a4f80bf04614e5ddd794a6c5e;p=public-inbox.git

diff --git a/t/common.perl b/t/common.perl
index 2126a761..0ff5de4a 100644
--- 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',