[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
From: |
Patrice Dumas |
Date: |
Tue, 31 Aug 2021 04:29:59 -0400 (EDT) |
branch: master
commit 3c50435b3108d2e3d68781728d7f4195c49d01f8
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Aug 31 09:41:20 2021 +0200
* tp/Texinfo/Common.pm: remove comments.
---
tp/Texinfo/Common.pm | 7 +------
1 file changed, 1 insertion(+), 6 deletions(-)
diff --git a/tp/Texinfo/Common.pm b/tp/Texinfo/Common.pm
index b012973..de468dc 100644
--- a/tp/Texinfo/Common.pm
+++ b/tp/Texinfo/Common.pm
@@ -2098,9 +2098,6 @@ sub modify_tree($$$;$)
# this puts the new args at the place of the old arg using the
# offset from the end of the array
splice (@{$tree->{'args'}}, $i - $#args -1, 1, @new_args);
- #foreach my $arg (@new_args) {
- # modify_tree($self, $arg, $operation);
- #}
}
}
if ($tree->{'contents'}) {
@@ -2111,9 +2108,6 @@ sub modify_tree($$$;$)
# this puts the new contents at the place of the old content using the
# offset from the end of the array
splice (@{$tree->{'contents'}}, $i - $#contents -1, 1, @new_contents);
- #foreach my $content (@new_contents) {
- # modify_tree($self, $content, $operation);
- #}
}
}
return $tree;
@@ -2753,6 +2747,7 @@ sub set_nodes_list_labels($$$)
my $self = shift;
my $registrar = shift;
my $configuration_informations = shift;
+
$self->{'nodes'} = [];
my %labels = ();
if (defined $self->{'targets'}) {