6 our @EXPORT = qw(mk_temp_dir);
10 use File::Temp qw(tempdir);
12 $File::Temp::KEEP_ALL = 1
13 if $ENV{LOCAL_LIB_TEST_DEBUG};
17 my $name_template = shift;
20 my $path = tempdir($name_template, DIR => Cwd::abs_path('t/temp'), CLEANUP => 1);
21 local::lib->ensure_dir_structure_for($path);
22 # On Win32 the path where the distribution is built usually contains
23 # spaces. This is a problem for some parts of the CPAN toolchain, so
24 # local::lib uses the GetShortPathName trick do get an alternate
25 # representation of the path that doesn't constain spaces.
26 return ($^O eq 'MSWin32')
27 ? Win32::GetShortPathName($path)