From 0e41e612e51abc9e1348634a10b6cc25999c19c6 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sun, 17 Apr 2022 16:29:08 +0300
Subject: [PATCH] decode string from console as utf-8

---
 aleesa-cli | 2 ++
 cpanfile   | 1 +
 2 files changed, 3 insertions(+)

diff --git a/aleesa-cli b/aleesa-cli
index e654d60..6e38deb 100755
--- a/aleesa-cli
+++ b/aleesa-cli
@@ -28,6 +28,7 @@ BEGIN {
 use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
 
 use Clone qw (clone);
+use Encode qw (decode_utf8);
 use JSON::XS ();
 use Mojo::IOLoop::LineReader ();
 use Mojo::Redis ();
@@ -105,6 +106,7 @@ my $__signal_handler = sub {
 # Процедура, реагирующая на строку, пойманную с клавиатуры
 my $__input_line_handler = sub {
 	my ($self, $line) = @_;
+	$line = decode_utf8 ($line);
 	chomp $line;
 
 	if ($line =~ /^(exit|quit)$/) { ## no critic (RegularExpressions::ProhibitFixedStringMatches)
diff --git a/cpanfile b/cpanfile
index 452501f..8ed8204 100644
--- a/cpanfile
+++ b/cpanfile
@@ -1,6 +1,7 @@
 ## no critic
 requires 'Clone',                    '==0.45';
 requires 'Cwd',                      '==3.75';
+requires 'Encode',                   '==3.17';
 requires 'JSON::XS',                 '==4.03';
 requires 'local::lib',               '==2.000028';
 requires 'Mojo::Redis',              '==3.29';