branch master updated: * tp/Texinfo/Convert/NodeNameNormalization.pm (set_nodes_list_labels): use -> systematically with references.

[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 5a10617512 * tp/Texinfo/Convert/NodeNameNormalization.pm 
(set_nodes_list_labels): use -> systematically with references.
5a10617512 is described below

commit 5a106175124ea19b6d600ced2e36aca62531f874
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sat Feb 25 11:46:08 2023 +0100

    * tp/Texinfo/Convert/NodeNameNormalization.pm (set_nodes_list_labels):
    use -> systematically with references.
---
 ChangeLog                                   | 5 +++++
 tp/Texinfo/Convert/NodeNameNormalization.pm | 6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7b148d462f..a596da6164 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2023-02-25  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/Convert/NodeNameNormalization.pm (set_nodes_list_labels):
+       use -> systematically with references.
+
 2023-02-25  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/XS/parsetexi/api.c (build_target_elements_list):
diff --git a/tp/Texinfo/Convert/NodeNameNormalization.pm 
b/tp/Texinfo/Convert/NodeNameNormalization.pm
index 98911a014c..69a129ac03 100644
--- a/tp/Texinfo/Convert/NodeNameNormalization.pm
+++ b/tp/Texinfo/Convert/NodeNameNormalization.pm
@@ -353,7 +353,7 @@ sub set_nodes_list_labels($$$)
     for my $target (@{$self->{'targets'}}) {
       if ($target->{'cmdname'} eq 'node') {
         if ($target->{'extra'}->{'nodes_manuals'}) {
-          for my $node_manual (@{$target->{'extra'}{'nodes_manuals'}}) {
+          for my $node_manual (@{$target->{'extra'}->{'nodes_manuals'}}) {
             if (defined $node_manual
                   and defined $node_manual->{'node_content'}) {
               my $normalized = 
Texinfo::Convert::NodeNameNormalization::normalize_node(
@@ -393,8 +393,8 @@ sub set_nodes_list_labels($$$)
             $target->{'extra'}->{'normalized'} = $normalized;
             if ($target->{'cmdname'} eq 'node') {
               if ($target->{'extra'}
-                  and $target->{'extra'}{'node_argument'}) {
-                $target->{'extra'}{'node_argument'}{'normalized'}
+                  and $target->{'extra'}->{'node_argument'}) {
+                $target->{'extra'}->{'node_argument'}->{'normalized'}
                   = $normalized;
               }
               push @{$self->{'nodes'}}, $target;