branch master updated: * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm (_normalize_texinfo_name): put the normalized content in the tree.

[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 73bacc103c * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm 
(_normalize_texinfo_name): put the normalized content in the tree.
73bacc103c is described below

commit 73bacc103c02b55daa0ed5b901cb20f0d4cd89ee
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Thu Jan 13 18:44:27 2022 +0100

    * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
    (_normalize_texinfo_name): put the normalized content in the
    tree.
---
 ChangeLog                                    | 6 ++++++
 Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm | 4 +++-
 Pod-Simple-Texinfo/prove.sh                  | 2 ++
 Pod-Simple-Texinfo/t/Pod-Simple-Texinfo.t    | 5 +++++
 tp/t/test_utils.pl                           | 2 --
 5 files changed, 16 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e8256ffbf9..52cf30d042 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-01-13  Patrice Dumas  <pertusus@free.fr>
+
+       * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
+       (_normalize_texinfo_name): put the normalized content in the
+       tree.
+
 2022-01-13  Patrice Dumas  <pertusus@free.fr>
 
        * NEWS: document the change in HTML element class names.
diff --git a/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm 
b/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
index 4fa788617c..2805c3a545 100644
--- a/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
+++ b/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
@@ -359,7 +359,9 @@ sub _normalize_texinfo_name($$)
     if (not exists($current->{'cmdname'}) or $current->{'cmdname'} ne 
'anchor') {
       cluck "BUG: could not find anchor: $texinfo_text";
     } else {
-      protect_first_parenthesis($current->{'args'}->[-0]->{'contents'});
+      my $protected_contents
+          = protect_first_parenthesis($current->{'args'}->[-0]->{'contents'});
+      $current->{'args'}->[-0]->{'contents'} = $protected_contents;
     }
   }
   my $fixed_text = Texinfo::Convert::Texinfo::convert_to_texinfo($tree, 1);
diff --git a/Pod-Simple-Texinfo/prove.sh b/Pod-Simple-Texinfo/prove.sh
index 988cef5aeb..5ed0c9f98a 100755
--- a/Pod-Simple-Texinfo/prove.sh
+++ b/Pod-Simple-Texinfo/prove.sh
@@ -5,6 +5,8 @@
 # are permitted in any medium without royalty provided the copyright
 # notice and this notice are preserved.
 
+#set -x
+
 if test z"$srcdir" = 'z'; then
   srcdir='.'
 fi
diff --git a/Pod-Simple-Texinfo/t/Pod-Simple-Texinfo.t 
b/Pod-Simple-Texinfo/t/Pod-Simple-Texinfo.t
index 0e4417fb20..3798e01a80 100644
--- a/Pod-Simple-Texinfo/t/Pod-Simple-Texinfo.t
+++ b/Pod-Simple-Texinfo/t/Pod-Simple-Texinfo.t
@@ -12,6 +12,9 @@ ok(1); # If we made it this far, we're ok.
 
 #########################
 
+# to run a specific test:
+my $arg_test_case = shift @ARGV;
+
 sub run_test($$$;$$)
 {
   my $in = shift;
@@ -20,6 +23,8 @@ sub run_test($$$;$$)
   my $test_nodes = shift;
   my $sectioning_base_level = shift;
 
+  return if (defined($arg_test_case) and $name ne $arg_test_case);
+
   my $parser = Pod::Simple::Texinfo->new();
   $parser->set_source(\$in);
   $parser->texinfo_section_nodes(1)
diff --git a/tp/t/test_utils.pl b/tp/t/test_utils.pl
index 6e68f480db..1200df17b2 100644
--- a/tp/t/test_utils.pl
+++ b/tp/t/test_utils.pl
@@ -56,8 +56,6 @@ use Storable qw(dclone); # standard in 5.007003
 #use Struct::Compare;
 use Getopt::Long qw(GetOptions);
 
-# File: test_file option.
-
 # FIXME Is it really useful?
 use vars qw(%result_texis %result_texts %result_trees %result_errors 
    %result_indices %result_sectioning %result_nodes %result_menus