diff options
| author | Karl Berry <karl@freefriends.org> | 2020-04-05 22:31:56 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2020-04-05 22:31:56 +0000 |
| commit | 1b3adbff195e22ed18a1ed6990db81f6ca4db435 (patch) | |
| tree | 3cd9be8a4160d1a74190e9dcf9fa89850cfaf4aa /Master/tlpkg/TeXLive/TLUtils.pm | |
| parent | c2937ab91e32677b0bf31a5007942e88c5732e2c (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
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 9 |
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); } |