* tta/perl/Texinfo/Translations.pm (complete_indices): cache when lang is not defined too, to cache the tree. * tta/perl/t/z_misc/do_master_menu.t: fix ModulePath updir.
diff --git a/ChangeLog b/ChangeLog index d13255a..ece6fcb 100644 --- a/ChangeLog +++ b/ChangeLog
@@ -1,5 +1,12 @@ 2025-04-02 Patrice Dumas <pertusus@free.fr> + * tta/perl/Texinfo/Translations.pm (complete_indices): cache when lang + is not defined too, to cache the tree. + + * tta/perl/t/z_misc/do_master_menu.t: fix ModulePath updir. + +2025-04-02 Patrice Dumas <pertusus@free.fr> + Caching of translated strings in C * tta/C/main/translations.c (gdt_tree), tta/C/convert/convert_html.c
diff --git a/tta/perl/Texinfo/Translations.pm b/tta/perl/Texinfo/Translations.pm index 276f13b..e7868ce 100644 --- a/tta/perl/Texinfo/Translations.pm +++ b/tta/perl/Texinfo/Translations.pm
@@ -504,8 +504,6 @@ my $lang_translations = {}; -my $undef_lang_translation = [undef]; - # For some @def* commands, we delay storing the contents of the # index entry until now to avoid needing Texinfo::Translations::gdt # in the main code of ParserNonXS.pm. @@ -553,11 +551,9 @@ # used for getting the translation. my $entry_language = $main_entry_element->{'extra'}->{'documentlanguage'}; - if (!defined($entry_language)) { - $current_lang_translations = $undef_lang_translation; - $current_lang = $entry_language; - } elsif (!defined($current_lang) - or $entry_language ne $current_lang) { + $entry_language = '' if (!defined($entry_language)); + if (!defined($current_lang) + or $entry_language ne $current_lang) { if (!$lang_translations->{$entry_language}) { $lang_translations->{$entry_language} = {}; }
diff --git a/tta/perl/t/z_misc/do_master_menu.t b/tta/perl/t/z_misc/do_master_menu.t index 749497b..bfd5227 100644 --- a/tta/perl/t/z_misc/do_master_menu.t +++ b/tta/perl/t/z_misc/do_master_menu.t
@@ -1,7 +1,7 @@ use strict; use lib '.'; -use Texinfo::ModulePath (undef, undef, undef, 'updirs' => 2); +use Texinfo::ModulePath (undef, undef, undef, 'updirs' => 3); use Test::More;