branch master updated: tp/Texinfo/Translations.pm: remove useless require, clearer code

[Patrice Dumas]

This is an automated email from the git hooks/post-receive script.

pertusus pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 0484ba292b tp/Texinfo/Translations.pm: remove useless require, clearer 
code
0484ba292b is described below

commit 0484ba292bcc3a35ad8d7d74eceaa06d50db485a
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Thu Sep 29 00:39:14 2022 +0200

    tp/Texinfo/Translations.pm: remove useless require, clearer code
---
 tp/Texinfo/Translations.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/tp/Texinfo/Translations.pm b/tp/Texinfo/Translations.pm
index 01096483d6..031120eabd 100644
--- a/tp/Texinfo/Translations.pm
+++ b/tp/Texinfo/Translations.pm
@@ -19,8 +19,6 @@
 
 package Texinfo::Translations;
 
-require Exporter;
-
 use 5.00405;
 use strict;
 
@@ -229,9 +227,11 @@ sub gdt($$;$$$)
   # relevant information (if any).  It could also mess with the parser
   # state, though this has not been checked for a long time.
 
+  # accept @txiinternalvalue as a valid Texinfo command, used to mark
+  # location in tree of substituted brace enclosed strings.
+  my $parser_conf = {'accept_internalvalue' => 1};
   # information only found in parser, not available through get_conf().
   # Note that it is only available for the NonXS parser.
-  my $parser_conf;
   if ($current_parser) {
     foreach my $duplicated_conf ('clickstyle', 'kbdinputstyle') {
       $parser_conf->{$duplicated_conf} = $current_parser->{$duplicated_conf}
@@ -246,9 +246,6 @@ sub gdt($$;$$$)
       }
     }
   }
-  # accept @txiinternalvalue as a valid Texinfo command, used to mark
-  # location in tree of substituted brace enclosed strings.
-  $parser_conf->{'accept_internalvalue'} = 1;
   my $parser = Texinfo::Parser::simple_parser($parser_conf);
   if ($parser->{'DEBUG'}) {
     print STDERR "GDT $translation_result\n";