diff options
author | Karl Berry <karl@freefriends.org> | 2025-02-17 23:49:58 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2025-02-17 23:49:58 +0000 |
commit | 11ef26d5f49051d841e81b4f102f392f733899ba (patch) | |
tree | c1d43ee884312af2c213200991e3c4fc15db9309 /Master/tlpkg | |
parent | aed25b26d771e53acb133f55d9ed51f40e419b68 (diff) |
(_create_config_files): mkdirhier(dirname($dest)).
Report from Max,
https://tug.org/pipermail/tex-live/2025-February/051149.html.
git-svn-id: svn://tug.org/texlive/trunk@74083 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 6c4d564cf3d..342318596a6 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3666,6 +3666,9 @@ sub _create_config_files { 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: $!"); |