branch master updated: * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm (_normalize_texinfo_name): 'contents' can now be undef in anchor argument.

[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 97c85e7314 * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm 
(_normalize_texinfo_name): 'contents' can now be undef in anchor argument.
97c85e7314 is described below

commit 97c85e7314c5a7e9471308992a3098d0ce2312db
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Sep 18 15:10:27 2022 +0200

    * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
    (_normalize_texinfo_name): 'contents' can now be undef in anchor
    argument.
---
 ChangeLog                                    | 6 ++++++
 Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm | 6 +++---
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e681cedef2..97b3cf94f8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-09-18  Patrice Dumas  <pertusus@free.fr>
+
+       * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
+       (_normalize_texinfo_name): 'contents' can now be undef in anchor
+       argument.
+
 2022-09-18  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/misc.c (xs_abort_empty_line): remove the contents key
diff --git a/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm 
b/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
index ae3b099f70..8b95a528b1 100644
--- a/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
+++ b/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
@@ -419,10 +419,10 @@ sub _normalize_texinfo_name($$)
     }
     if (not exists($current->{'cmdname'}) or $current->{'cmdname'} ne 
'anchor') {
       cluck "BUG: could not find anchor: $texinfo_text";
-    } else {
+    } elsif ($current->{'args'}->[0]->{'contents'}) {
       my $protected_contents
-          = protect_first_parenthesis($current->{'args'}->[-0]->{'contents'});
-      $current->{'args'}->[-0]->{'contents'} = $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);