texlive[54621] Master/tlpkg/TeXLive/TLUtils.pm: (tl_tmpdir): switch
commits+karl at tug.org
commits+karl at tug.org
Mon Apr 6 00:31:56 CEST 2020
Revision: 54621
http://tug.org/svn/texlive?view=revision&revision=54621
Author: karl
Date: 2020-04-06 00:31:56 +0200 (Mon, 06 Apr 2020)
Log Message:
-----------
(tl_tmpdir): switch File::temp::tempdir()
invocation to use a template, hoping that that
will work on Windows.
Modified Paths:
--------------
trunk/Master/tlpkg/TeXLive/TLUtils.pm
Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm 2020-04-05 22:20:32 UTC (rev 54620)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm 2020-04-05 22:31:56 UTC (rev 54621)
@@ -545,7 +545,7 @@
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 @@
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);
}
More information about the tex-live-commits
mailing list.