From 105b36ca2c9783fb10f60994be0d93a4f1ad4767 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Fri, 28 Jun 2019 14:35:28 +0200
Subject: Fix UTF-8 handling in tgsend

---
 tgsend | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'tgsend')

diff --git a/tgsend b/tgsend
index 80458e4..a05af32 100755
--- a/tgsend
+++ b/tgsend
@@ -40,7 +40,8 @@ $TOKEN ||= fetch_token() or
 
 # Read text from stdin
 undef $/;
-my $text = join "", <STDIN>;
+binmode STDIN, ':encoding(utf8)';
+my $text = <STDIN>;
 $text =~ s/^\s+|\s+$//g; # Trim input
 
 # Send message to chats (or pretend to)
-- 
cgit v1.2.3