branch master updated: * tp/Texinfo/Common.pm (output_files_open_out): add $output_encoding argument to set the encoding irrespective of document encoding.

[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 3b50a1d  * tp/Texinfo/Common.pm (output_files_open_out): add 
$output_encoding argument to set the encoding irrespective of document encoding.
3b50a1d is described below

commit 3b50a1d8ab0534c2d5b8b83284649544516ee232
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Thu Dec 23 09:59:04 2021 +0100

    * tp/Texinfo/Common.pm (output_files_open_out): add
    $output_encoding argument to set the encoding irrespective
    of document encoding.
---
 ChangeLog            | 6 ++++++
 tp/Texinfo/Common.pm | 7 +++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ed1637f..2854693 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2021-12-23  Patrice Dumas  <pertusus@free.fr>
 
+       * tp/Texinfo/Common.pm (output_files_open_out): add
+       $output_encoding argument to set the encoding irrespective
+       of document encoding.
+
+2021-12-23  Patrice Dumas  <pertusus@free.fr>
+
        * tp/init/chm.pm (_chm_convert_tree_to_text): rename
        convert_tree() as _chm_convert_tree_to_text().
 
diff --git a/tp/Texinfo/Common.pm b/tp/Texinfo/Common.pm
index 6d182fa..2a09571 100644
--- a/tp/Texinfo/Common.pm
+++ b/tp/Texinfo/Common.pm
@@ -1161,15 +1161,18 @@ sub locate_init_file($$$)
 # output_files_register_closed() below.  This makes possible to
 # unlink all the opened files and close the files not already
 # closed.
-sub output_files_open_out($$$;$)
+sub output_files_open_out($$$;$$)
 {
   my $self = shift;
   my $configuration_informations = shift;
   my $file = shift;
   my $use_binmode = shift;
+  my $output_encoding = shift;
 
   my $encoding;
-  if (defined($configuration_informations->get_conf('OUTPUT_PERL_ENCODING'))) {
+  if (defined($output_encoding)) {
+    $encoding = $output_encoding;
+  } elsif 
(defined($configuration_informations->get_conf('OUTPUT_PERL_ENCODING'))) {
     $encoding = $configuration_informations->get_conf('OUTPUT_PERL_ENCODING');
   }