texlive[74083] Master/tlpkg/TeXLive/TLUtils.pm:

[commits+karl at tug.org]

Revision: 74083
          https://tug.org/svn/texlive?view=revision&revision=74083
Author:   karl
Date:     2025-02-18 00:49:58 +0100 (Tue, 18 Feb 2025)
Log Message:
-----------
(_create_config_files): mkdirhier(dirname($dest)).
Report from Max,
https://tug.org/pipermail/tex-live/2025-February/051149.html.

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

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2025-02-17 23:39:24 UTC (rev 74082)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2025-02-17 23:49:58 UTC (rev 74083)
@@ -3666,6 +3666,9 @@
     tlwarn("Updating $dest, backup copy in $dest.backup\n");
     copy("-f", $dest, "$dest.backup");
   }
+  # ensure destination directory exists.
+  my $destdir = dirname ($dest);
+  -d $destdir || mkdirhier $destdir; # if fails, the next open will die.
   open(OUTFILE,">$dest")
     or die("Cannot open $dest for writing: $!");