summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-04-05 22:31:56 +0000
committerKarl Berry <karl@freefriends.org>2020-04-05 22:31:56 +0000
commit1b3adbff195e22ed18a1ed6990db81f6ca4db435 (patch)
tree3cd9be8a4160d1a74190e9dcf9fa89850cfaf4aa
parentc2937ab91e32677b0bf31a5007942e88c5732e2c (diff)
(tl_tmpdir): switch File::temp::tempdir()
invocation to use a template, hoping that that will work on Windows. git-svn-id: svn://tug.org/texlive/trunk@54621 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 50ba7b8cf0c..1a44ca9436e 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -545,7 +545,7 @@ and thus honors various env variables like C<TMPDIR>, C<TMP>, and C<TEMP>.
sub initialize_global_tmpdir {
$::tl_tmpdir = File::Temp::tempdir(CLEANUP => 1);
- ddebug("tl_tempdir: creating global tempdir $::tl_tmpdir\n");
+ ddebug("initialize_global_tmpdir: creating global tempdir $::tl_tmpdir\n");
return ($::tl_tmpdir);
}
@@ -558,8 +558,11 @@ is terminated.
sub tl_tmpdir {
initialize_global_tmpdir() if (!defined($::tl_tmpdir));
- my $tmp = File::Temp::tempdir(DIR => $::tl_tmpdir, CLEANUP => 1);
- ddebug("tl_tempdir: creating tempdir $tmp\n");
+ # fails on Windows?
+ #my $tmp = File::Temp::tempdir(DIR => $::tl_tmpdir, CLEANUP => 1);
+ # hopefully:
+ my $tmp = File::Temp::tempdir("$::tl_tmpdir/XXXXXXXXX", CLEANUP => 1);
+ ddebug("tl_tmpdir: creating tempdir $tmp\n");
return ($tmp);
}