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.