diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm
index 7edd4c40eac3cdf593aa1238662498632dfafc36..da67f33c7e38929067350c7cf0da8fd8c5c1e43d 100644
--- a/src/test/perl/TestLib.pm
+++ b/src/test/perl/TestLib.pm
@@ -114,7 +114,7 @@ sub tempdir
 {
 	return File::Temp::tempdir(
 		'tmp_testXXXX',
-		DIR => $ENV{TESTDIR} || cwd(),
+		DIR => $tmp_check,
 		CLEANUP => 1);
 }