branch master updated: * tp/Texinfo/Common.pm (debug_print_tree): Output 'tree_document_descriptor' hash value to help with debugging use of XS code.

[Gavin D. Smith]

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

gavin pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 8a872abb09 * tp/Texinfo/Common.pm (debug_print_tree): Output 
'tree_document_descriptor' hash value to help with debugging use of XS code.
8a872abb09 is described below

commit 8a872abb0935807ec4337e475f414c60f3e63e72
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Thu Apr 4 20:12:50 2024 +0100

    * tp/Texinfo/Common.pm (debug_print_tree):
    Output 'tree_document_descriptor' hash value to help with
    debugging use of XS code.
---
 ChangeLog            | 6 ++++++
 tp/Texinfo/Common.pm | 4 ++++
 2 files changed, 10 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 36fdf5af4b..93b3cbc57f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2024-04-04  Gavin Smith <gavinsmith0123@gmail.com>
+
+       * tp/Texinfo/Common.pm (debug_print_tree):
+       Output 'tree_document_descriptor' hash value to help with
+       debugging use of XS code.
+
 2024-04-04  Patrice Dumas  <pertusus@free.fr>
 
        * tp/t/*.t, tp/t/test_utils.pl (test): move ENABLE_ENCODING setup in
diff --git a/tp/Texinfo/Common.pm b/tp/Texinfo/Common.pm
index e12970efc6..0e215defae 100644
--- a/tp/Texinfo/Common.pm
+++ b/tp/Texinfo/Common.pm
@@ -2787,6 +2787,10 @@ my @kept_keys_output_unit = ('unit_contents');
 foreach my $key (@kept_keys_output_unit) {
   $kept_keys{$key} = 1;
 }
+my @kept_keys_handle = ('tree_document_descriptor');
+foreach my $key (@kept_keys_handle) {
+  $kept_keys{$key} = 1;
+}
 sub _filter_print_keys { [grep {$kept_keys{$_}} ( sort keys %{$_[0]} )] };
 sub debug_print_tree($)
 {