texlive[58956] Master/tlpkg/TeXLive/TLUtils.pm: fmtutil: only try to

[commits+preining at tug.org]

Revision: 58956
          http://tug.org/svn/texlive?view=revision&revision=58956
Author:   preining
Date:     2021-04-22 02:45:32 +0200 (Thu, 22 Apr 2021)
Log Message:
-----------
fmtutil: only try to use TEXMFSYSVAR for mktexfmt

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-04-22 00:45:26 UTC (rev 58955)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-04-22 00:45:32 UTC (rev 58956)
@@ -4582,9 +4582,13 @@
   } elsif ($optsref->{'user'}) {
     $texmfconfig = $TEXMFCONFIG;
     $texmfvar    = $TEXMFVAR;
-    # for fmtutil we try to use TEXMFSYSVAR if it is writable since
-    # stray formats are some of the biggest problems reported
-    if ($prg eq "fmtutil" || $prg eq "mktexfmt") {
+    # mktexfmt is often run accidentally by a user with missing formats
+    # and the resulting format dumps are put into TEXMFVAR, which is
+    # one of the most common source of problems.
+    # Only for mktexfmt (but not for fmtutil, which would need to be called
+    # explicitely with fmtutil -user) we check whether TEXMFSYSVAR is writable
+    # and if yes, create formats there.
+    if ($prg eq "mktexfmt") {
       my $switchit = 0;
       if (-d "$TEXMFSYSVAR/web2c") {
         $switchit = 1 if (-w "$TEXMFSYSVAR/web2c");