diff options
Diffstat (limited to 'src/test/perl/TestLib.pm')
| -rw-r--r-- | src/test/perl/TestLib.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm index 564936e5e57..f1b5f8af8a0 100644 --- a/src/test/perl/TestLib.pm +++ b/src/test/perl/TestLib.pm @@ -128,9 +128,11 @@ sub all_tests_passing # sub tempdir { + my ($prefix) = @_; + $prefix = "tmp_test" unless defined $prefix; return File::Temp::tempdir( - 'tmp_testXXXX', - DIR => $tmp_check, + $prefix . '_XXXX', + DIR => $tmp_check, CLEANUP => 1); } |