From 22f4308f6bc1cedd95323ef2fb46fc660891e45f Mon Sep 17 00:00:00 2001
From: IKEDA Soji <mail@ikedas.net>
Date: Sun, 18 Feb 2024 22:46:03 +0900
Subject: [PATCH 1/2] WWSympa: Uploaded file names in UTF-8 were garbled
 (#1802)

---
 src/lib/Sympa/Tools/Text.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/lib/Sympa/Tools/Text.pm b/src/lib/Sympa/Tools/Text.pm
index a8258e378..ef41927d7 100644
--- a/src/lib/Sympa/Tools/Text.pm
+++ b/src/lib/Sympa/Tools/Text.pm
@@ -307,8 +307,10 @@ sub guessed_to_utf8 {
 
     my $utf8;
     if ($Unicode::UTF8::VERSION) {
-        $utf8 =
-            eval { Unicode::UTF8::decode_utf8($text, Encode::FB_CROAK()) };
+        $utf8 = Unicode::UTF8::decode_utf8($text)
+            if Unicode::UTF8::valid_utf8($text);
+    } else {
+        $utf8 = eval { Encode::decode_utf8($text, Encode::FB_CROAK()) };
     }
     unless (defined $utf8) {
         foreach my $charset (map { $_ ? @$_ : () } @legacy_charsets{@langs}) {

From 52734ee2716c4a7e9ad075915fd21f34c4fc9f40 Mon Sep 17 00:00:00 2001
From: IKEDA Soji <mail@ikedas.net>
Date: Sun, 18 Feb 2024 23:04:47 +0900
Subject: [PATCH 2/2] Update dependency Unicode-UTF8 from 0.58 to 0.60

---
 cpanfile | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cpanfile b/cpanfile
index 3062244eb..a65bc87df 100644
--- a/cpanfile
+++ b/cpanfile
@@ -192,7 +192,7 @@ recommends 'Net::SMTP';
 # Note: Perl 5.10.1 bundles 1.03 (per Unicode 5.1.0).
 recommends 'Unicode::Normalize', '>= 1.03';
 
-recommends 'Unicode::UTF8', '>= 0.58';
+recommends 'Unicode::UTF8', '>= 0.60';
 
 ### Features
 ##
@@ -319,7 +319,7 @@ feature 'safe-unicode', 'Sanitizes inputs with Unicode text.' => sub {
     # Note: Perl 5.8.1 bundles version 0.23.
     # Note: Perl 5.10.1 bundles 1.03 (per Unicode 5.1.0).
     requires 'Unicode::Normalize', '>= 1.03';
-    requires 'Unicode::UTF8', '>= 0.58';
+    requires 'Unicode::UTF8', '>= 0.60';
 };
 
 on 'test' => sub {