branch master updated: * tp/Texinfo/XS/parsetexi/Parsetexi.pm (_get_parser_info): Remove $no_build argument. Only call build_document if $no_store is set. Callers updated.

[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 b3b8144830 * tp/Texinfo/XS/parsetexi/Parsetexi.pm (_get_parser_info): 
Remove $no_build argument.  Only call build_document if $no_store is set.  
Callers updated.
b3b8144830 is described below

commit b3b8144830084a983b6f35afef2f19d83f7c998c
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Fri Apr 5 23:42:53 2024 +0100

    * tp/Texinfo/XS/parsetexi/Parsetexi.pm (_get_parser_info):
    Remove $no_build argument.  Only call build_document if $no_store
    is set.  Callers updated.
---
 ChangeLog                            |  6 ++++++
 tp/Texinfo/XS/parsetexi/Parsetexi.pm | 15 +++++++--------
 2 files changed, 13 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ff7f20db05..4eef4f26fa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2024-04-05  Gavin Smith <gavinsmith0123@gmail.com>
+
+       * tp/Texinfo/XS/parsetexi/Parsetexi.pm (_get_parser_info):
+       Remove $no_build argument.  Only call build_document if $no_store
+       is set.  Callers updated.
+
 2024-04-05  Patrice Dumas  <pertusus@free.fr>
 
        * doc/texinfo.texi (Global Customization Variables)
diff --git a/tp/Texinfo/XS/parsetexi/Parsetexi.pm 
b/tp/Texinfo/XS/parsetexi/Parsetexi.pm
index b269839bd8..e7eee2c2f3 100644
--- a/tp/Texinfo/XS/parsetexi/Parsetexi.pm
+++ b/tp/Texinfo/XS/parsetexi/Parsetexi.pm
@@ -195,10 +195,9 @@ sub _get_parser_error_registrar($)
   return $registrar, $configuration_information;
 }
 
-sub _get_parser_info($$;$$) {
+sub _get_parser_info($$;$) {
   my $self = shift;
   my $document_descriptor = shift;
-  my $no_build = shift;
   my $no_store = shift;
 
   # make sure that the parser Texinfo::Report registrar is setup
@@ -210,10 +209,10 @@ sub _get_parser_info($$;$$) {
   pass_document_parser_errors_to_registrar($document_descriptor, $self);
 
   my $document;
-  if ($no_build) {
+  if (!$no_store) {
     $document = get_document ($document_descriptor);
   } else {
-    $document = build_document ($document_descriptor, $no_store);
+    $document = build_document ($document_descriptor, 1);
   }
 
   # additional info relevant in perl only.
@@ -258,7 +257,7 @@ sub parse_texi_file ($$)
     return undef;
   }
 
-  my $document = _get_parser_info($self, $document_descriptor, 1);
+  my $document = _get_parser_info($self, $document_descriptor);
 
   return $document;
 }
@@ -279,7 +278,7 @@ sub parse_texi_piece($$;$$)
   my $utf8_bytes = Encode::encode('utf-8', $text);
   my $document_descriptor = parse_piece($utf8_bytes, $line_nr);
 
-  my $document = _get_parser_info($self, $document_descriptor, 1, $no_store);
+  my $document = _get_parser_info($self, $document_descriptor, $no_store);
 
   return $document;
 }
@@ -299,7 +298,7 @@ sub parse_texi_text($$;$)
   my $utf8_bytes = Encode::encode('utf-8', $text);
   my $document_descriptor = parse_text($utf8_bytes, $line_nr);
 
-  my $document = _get_parser_info($self, $document_descriptor, 1);
+  my $document = _get_parser_info($self, $document_descriptor);
 
   return $document;
 }
@@ -318,7 +317,7 @@ sub parse_texi_line($$;$$)
   my $utf8_bytes = Encode::encode('utf-8', $text);
   my $document_descriptor = parse_string($utf8_bytes, $line_nr);
 
-  my $document = _get_parser_info($self, $document_descriptor, 0, $no_store);
+  my $document = _get_parser_info($self, $document_descriptor, $no_store);
 
   return $document->tree();
 }