branch master updated: * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.p (_convert_pod): fix Texinfo::Common::code_style_commands to be the modified Texinfo::Common::brace_code_commands.

[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 0374aac5bc * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.p 
(_convert_pod): fix Texinfo::Common::code_style_commands to be the modified 
Texinfo::Common::brace_code_commands.
0374aac5bc is described below

commit 0374aac5bc7d680b3a3d5a58c880ba6b5bbd5bcb
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Tue Sep 27 19:02:05 2022 +0200

    * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.p (_convert_pod): fix
    Texinfo::Common::code_style_commands to be the modified
    Texinfo::Common::brace_code_commands.
---
 ChangeLog                                    | 6 ++++++
 Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm | 9 +++++++--
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index beae9a274e..4d84ae39b8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-09-27  Patrice Dumas  <pertusus@free.fr>
+
+       * Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.p (_convert_pod): fix
+       Texinfo::Common::code_style_commands to be the modified
+       Texinfo::Common::brace_code_commands.
+
 2022-09-27  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Common.pm (%brace_commands, %internal_commands),
diff --git a/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm 
b/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
index 8b95a528b1..369838bd59 100644
--- a/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
+++ b/Pod-Simple-Texinfo/lib/Pod/Simple/Texinfo.pm
@@ -23,6 +23,7 @@ package Pod::Simple::Texinfo;
 
 require 5;
 use strict;
+#no autovivification qw(fetch delete exists store strict);
 
 use Carp qw(cluck);
 #use Pod::Simple::Debug (3);
@@ -110,6 +111,7 @@ sub new
   $new->texinfo_man_url_prefix($man_url_prefix);
   $new->texinfo_sectioning_style($sectioning_style);
   $new->texinfo_add_upper_sectioning_command(1);
+  #$new->{'texinfo_nodes'} = {};
   return $new;
 }
 
@@ -119,6 +121,8 @@ sub run
 
   # In case the caller changed the formats
   my @formats = $self->accept_targets();
+  $self->{'texinfo_raw_format_commands'} = {};
+  $self->{'texinfo_if_format_commands'} = {};
   foreach my $format (@formats) {
     if (lc($format) eq 'texinfo') {
       $self->{'texinfo_raw_format_commands'}->{$format} = '';
@@ -154,6 +158,7 @@ sub run
     $self->{'texinfo_sectioning_main_command'} = 
\@appendix_sectioning_commands;
   }
 
+  $self->{'texinfo_head_commands'} = {};
   foreach my $heading_command (keys(%pod_head_commands_level)) {
     my $level = $pod_head_commands_level{$heading_command} + $base_level -1;
     if (defined($self->{'texinfo_sectioning_commands'}->[$level])) {
@@ -666,7 +671,7 @@ sub _convert_pod($)
         _begin_context(\@accumulated_output, $tagname);
       } elsif ($tag_commands{$tagname}) {
         _output($fh, \@accumulated_output, "\@$tag_commands{$tagname}\{");
-        if ($Texinfo::Common::code_style_commands{$tag_commands{$tagname}}) {
+        if ($Texinfo::Common::brace_code_commands{$tag_commands{$tagname}}) {
           if (@format_stack and ref($format_stack[-1]) eq ''
               and 
defined($self->{'texinfo_raw_format_commands'}->{$format_stack[-1]})) {
             cluck "in $format_stack[-1]: $tagname $tag_commands{$tagname}";
@@ -827,7 +832,7 @@ sub _convert_pod($)
         }
       } elsif ($tag_commands{$tagname}) {
         _output($fh, \@accumulated_output, "}");
-        if ($Texinfo::Common::code_style_commands{$tag_commands{$tagname}}) {
+        if ($Texinfo::Common::brace_code_commands{$tag_commands{$tagname}}) {
           pop @format_stack;
         }
       } elsif ($environment_commands{$tagname}) {