branch master updated: * tp/Texinfo/Convert/IXIN.pm (output_ixin): take encoding information from image element.

[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 c08f403448 * tp/Texinfo/Convert/IXIN.pm (output_ixin): take encoding 
information from image element.
c08f403448 is described below

commit c08f40344838be14d35d7689bb3c27049f3027e1
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Sun Jul 16 21:30:36 2023 +0200

    * tp/Texinfo/Convert/IXIN.pm (output_ixin): take encoding information
    from image element.
---
 ChangeLog                  | 5 +++++
 tp/Texinfo/Convert/IXIN.pm | 8 +++++---
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 529f91e293..40da51f356 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2023-07-16  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/Convert/IXIN.pm (output_ixin): take encoding information
+       from image element.
+
 2023-07-16  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/Converter.pm (encoded_input_file_name),
diff --git a/tp/Texinfo/Convert/IXIN.pm b/tp/Texinfo/Convert/IXIN.pm
index 6c6e1bcb78..716606c335 100644
--- a/tp/Texinfo/Convert/IXIN.pm
+++ b/tp/Texinfo/Convert/IXIN.pm
@@ -920,9 +920,11 @@ sub output_ixin($$)
           if (open ($filehandle, $file)) {
             $blob_nr++;
             if ($extension eq 'txt') {
-              binmode($filehandle, ":encoding("
-                         .$self->{'parser_info'}->{'input_perl_encoding'}.")")
-                if (defined($self->{'parser_info'}->{'input_perl_encoding'}));
+              my $perl_encoding
+                 = Texinfo::Common::element_extra_encoding_for_perl($command);
+              if ($perl_encoding) {
+                binmode($filehandle, ":encoding($perl_encoding)");
+              }
             }
             my $file_content;
             if (-z $file) {