From 90093440e7c406cbd940c6841d92d6ffdae338bc Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Fri, 28 Jun 2019 18:33:22 +0200
Subject: Fix UTF-8 handling in TgLib::Api

---
 lib/TgLib/Api.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib/TgLib')

diff --git a/lib/TgLib/Api.pm b/lib/TgLib/Api.pm
index 3056073..e643a42 100644
--- a/lib/TgLib/Api.pm
+++ b/lib/TgLib/Api.pm
@@ -31,6 +31,8 @@ sub get_updates {
         die $resp->message;
     } else {
         my $updates = decode_json($resp->content)->{'result'};
+        # TODO why does `decode_json` not do this work?
+        map { utf8::encode($_->{'message'}{'text'}) } @$updates;
         $logger->info(sprintf "Received %d updates from chats %s\n",
                      scalar(@$updates),
                      join(", ", map { $_->{'message'}{'chat'}{'id'} } @$updates));
-- 
cgit v1.2.3