branch master updated: * tp/Texinfo/Convert/Unicode.pm (check_unicode_point_conversion): check that the codepoint expands to valid UTF-8, by using :encoding(utf-8) instead of :utf8 on the stream, consistently with the conversion used to output UTF-8.

[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 767682b397 * tp/Texinfo/Convert/Unicode.pm 
(check_unicode_point_conversion): check that the codepoint expands to valid 
UTF-8, by using :encoding(utf-8) instead of :utf8 on the stream, consistently 
with the conversion used to output UTF-8.
767682b397 is described below

commit 767682b397694c555766496f350e72ce1bab86b0
Author: Patrice Dumas <pertusus@free.fr>
AuthorDate: Fri Jul 28 17:14:10 2023 +0200

    * tp/Texinfo/Convert/Unicode.pm (check_unicode_point_conversion):
    check that the codepoint expands to valid UTF-8, by using
    :encoding(utf-8) instead of :utf8 on the stream, consistently with the
    conversion used to output UTF-8.
---
 ChangeLog                     | 7 +++++++
 tp/Texinfo/Convert/Unicode.pm | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 5dbefd7cc0..58f1f06ca3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2023-07-28  Patrice Dumas  <pertusus@free.fr>
+
+       * tp/Texinfo/Convert/Unicode.pm (check_unicode_point_conversion):
+       check that the codepoint expands to valid UTF-8, by using
+       :encoding(utf-8) instead of :utf8 on the stream, consistently with the
+       conversion used to output UTF-8.
+
 2023-07-28  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/Convert/Unicode.pm
diff --git a/tp/Texinfo/Convert/Unicode.pm b/tp/Texinfo/Convert/Unicode.pm
index f8b0926b62..f3cd447664 100644
--- a/tp/Texinfo/Convert/Unicode.pm
+++ b/tp/Texinfo/Convert/Unicode.pm
@@ -1606,7 +1606,7 @@ sub check_unicode_point_conversion($;$)
     use warnings FATAL => qw(all);
     my ($fh, $string);
     open($fh, ">", \$string) || die "open(U string eval) failed: $!";
-    binmode($fh, ":utf8") || die "binmode(U string eval) failed: $!";
+    binmode($fh, ":encoding(utf-8)") || die "binmode(U string eval) failed: 
$!";
     print $fh chr(hex("$arg"));
   };
   if ($@) {