diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index 7edd4c40eac..da67f33c7e3 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); }