Work around File::Spec issue on ancient versions

Leont · Leont · commit 4ab1d4a6d02c · 2015-07-21T19:24:35.000+02:00
diff --git a/t/lib/MBTest.pm b/t/lib/MBTest.pm
@@ -144,6 +144,7 @@ sub import {
 # Setup a temp directory
 sub tmpdir {
   my ($self, @args) = @_;
+  local $ENV{TMPDIR} = $ENV{TMPDIR} || '';
   my $dir = $ENV{PERL_CORE} ? MBTest->original_cwd : File::Spec->tmpdir;
   return File::Temp::tempdir('MB-XXXXXXXX', CLEANUP => 1, DIR => $dir, @args);
 }

Original file line number	Diff line number	Diff line change
`@@ -144,6 +144,7 @@ sub import {`
`144`	`144`	`# Setup a temp directory`
`145`	`145`	`sub tmpdir {`
`146`	`146`	`my ($self, @args) = @_;`
	`147`	`+ local $ENV{TMPDIR} = $ENV{TMPDIR} \|\| '';`
`147`	`148`	`my $dir = $ENV{PERL_CORE} ? MBTest->original_cwd : File::Spec->tmpdir;`
`148`	`149`	`return File::Temp::tempdir('MB-XXXXXXXX', CLEANUP => 1, DIR => $dir, @args);`
`149`	`150`	`}`