Fix test suite with modern Perl

diff --git a/tests/tools.at b/tests/tools.at
index a4a7dd77b9b68ef0547b138f2c9e52bd7952eb76..e9a62408e5c6a40b81a0399713e05d7a56a5a4e8 100644 (file)
--- a/tests/tools.at
+++ b/tests/tools.at
@@ -1386,7 +1386,7 @@ do
   funny=`func_sanitize_file_name "$funny"`
   file=" file $funny"
   dir=`func_sanitize_dir_name " dir $funny"`
-  TMPDIR=" tmp$dir"
+  TMPDIR="./ tmp$dir"
   export TMPDIR
 
   # skip if we cannot create such a file or directory