texlive[74276] Build/source/texk/tests/TeXLive/TLUtils.pm: sync

[commits+karl at tug.org]

Revision: 74276
          https://tug.org/svn/texlive?view=revision&revision=74276
Author:   karl
Date:     2025-02-24 22:46:27 +0100 (Mon, 24 Feb 2025)
Log Message:
-----------
sync

Modified Paths:
--------------
    trunk/Build/source/texk/tests/TeXLive/TLUtils.pm

Modified: trunk/Build/source/texk/tests/TeXLive/TLUtils.pm
===================================================================
--- trunk/Build/source/texk/tests/TeXLive/TLUtils.pm	2025-02-24 21:30:18 UTC (rev 74275)
+++ trunk/Build/source/texk/tests/TeXLive/TLUtils.pm	2025-02-24 21:46:27 UTC (rev 74276)
@@ -7,7 +7,7 @@
 
 package TeXLive::TLUtils;
 
-my $svnrev = '$Revision: 73770 $';
+my $svnrev = '$Revision: 74083 $';
 my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
 sub module_revision { return $_modulerevision; }
 
@@ -3665,6 +3665,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: $!");
 
@@ -3684,6 +3687,7 @@
   my $default_lefthyphenmin = -1;
   my $default_righthyphenmin = -1;
   $ret{"synonyms"} = [];
+  $ret{"databases"} = ["dat", "def", "lua"];
   for my $p (quotewords('\s+', 0, "$line")) {
     my ($a, $b) = split /=/, $p;
     if ($a eq "name") {
@@ -3738,7 +3742,7 @@
     }
     if ($a eq "databases") {
       if (!$b) {
-        $ret{"error"} = "AddHyphen line needs databases=something: $line";
+        $ret{"error"} = "AddHyphen line needs databases=foo[,bar]: $line";
         return %ret;
       }
       @{$ret{"databases"}} = split /,/, $b;
@@ -3746,7 +3750,7 @@
     }
     if ($a eq "synonyms") {
       if (!$b) {
-        $ret{"error"} = "AddHyphen line needs synonyms=something: $line";
+        $ret{"error"} = "AddHyphen line needs synonyms=foo[,bar]: $line";
         return %ret;
       }
       @{$ret{"synonyms"}} = split /,/, $b;
@@ -3776,15 +3780,6 @@
                     . " righthyphenmin ($ret{righthyphenmin}): $line";
     return %ret;    
   }
-  # this default value couldn't be set earlier
-  if (not defined($ret{"databases"})) {
-    if (defined $ret{"file_patterns"} or defined $ret{"file_exceptions"}
-        or defined $ret{"luaspecial"}) {
-      @{$ret{"databases"}} = qw(dat def lua);
-    } else {
-      @{$ret{"databases"}} = qw(dat def);
-    }
-  }
   return %ret;
 }