diff options
Diffstat (limited to 'Build/source/texk')
-rwxr-xr-x | Build/source/texk/texlive/linked_scripts/luaotfload/luaotfload-tool.lua | 4 | ||||
-rwxr-xr-x | Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl | 24 |
2 files changed, 15 insertions, 13 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/luaotfload/luaotfload-tool.lua b/Build/source/texk/texlive/linked_scripts/luaotfload/luaotfload-tool.lua index 12bf2b3a42c..b83cbb84bcd 100755 --- a/Build/source/texk/texlive/linked_scripts/luaotfload/luaotfload-tool.lua +++ b/Build/source/texk/texlive/linked_scripts/luaotfload/luaotfload-tool.lua @@ -9,8 +9,8 @@ local ProvidesLuaModule = { name = "luaotfload-tool", - version = "3.1", --TAGVERSION - date = "2019-11-04", --TAGDATE + version = "3.11", --TAGVERSION + date = "2019-11-10", --TAGDATE description = "luaotfload-tool / database functionality", license = "GPL v2.0" } diff --git a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl index a72cc44f45e..58c5ce81c55 100755 --- a/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl +++ b/Build/source/texk/texlive/linked_scripts/texlive/tlmgr.pl @@ -5666,6 +5666,7 @@ sub check_executes { my %missingbins; my %missingengines; my %missinginis; + my @archs_to_check = $localtlpdb->available_architectures; for (keys %fmtlines) { my %r = TeXLive::TLUtils::parse_AddFormat_line("$_"); if (defined($r{"error"})) { @@ -5678,10 +5679,11 @@ sub check_executes { # special case for cont-en ... next if ($name eq "cont-en"); # we check that the name exist in bin/$arch - my @archs_to_check = $localtlpdb->available_architectures; - if ($engine eq "luajittex") { + if ($engine =~ /^lua(jit|hb)tex$/) { # luajittex is special since it is not available on all architectures - # due to inherent reasons (machine code) + # due to inherent reasons (machine code); + # luahbtex is special until we build it everywhere for TL'20. + # # We do not want to have error messages here, so we do the following: # * if tlpkg/tlpsrc/luatex.tlpsrc is available, then load it # and filter away those archs that are excluded with f/!... @@ -5689,6 +5691,7 @@ sub check_executes { # we just ignore it completely. my $tlpsrc_file = $localtlpdb->root . "/tlpkg/tlpsrc/luatex.tlpsrc"; if (-r $tlpsrc_file) { + ddebug("check_executes: found $tlpsrc_file\n"); require TeXLive::TLPSRC; my $tlpsrc = new TeXLive::TLPSRC; $tlpsrc->from_file($tlpsrc_file); @@ -5699,25 +5702,24 @@ sub check_executes { my $pt = $1; my $aa = $2; my $pr = $3; - if ($pr =~ m!/luajittex$!) { + if ($pr =~ m!/$engine$!) { # bingo, get the negative patterns if ($aa =~ m/^!(.*)$/) { @negarchs = split(/,/,$1); + ddebug("check_executes: negative arches: @negarchs\n"); } } } } - my %foo; + my @new_archs = (); for my $a (@archs_to_check) { - $foo{$a} = 1; - } - for my $a (@negarchs) { - delete $foo{$a} if defined($foo{$a}); + push (@new_archs, $a) unless grep { $a eq $_ } @negarchs; } - @archs_to_check = keys %foo; + @archs_to_check = @new_archs; } else { - @archs_to_check = (); + @archs_to_check = (); # no tlpsrc, check nothing. } + ddebug("check_executes: final arches to check: @archs_to_check"); } for my $a (@archs_to_check) { my $f = "$Master/bin/$a/$name"; |