From 1abfeacda166dddfbe75987de752ee4b383fbfca Mon Sep 17 00:00:00 2001
From: Sergey Kiselev <root@digital-freak.ru>
Date: Wed, 11 Jul 2018 15:35:27 +0500
Subject: [PATCH] =?UTF-8?q?yamd=20-=20=D0=BA=D0=BE=D0=B4=D0=B8=D1=80=D0=BE?=
 =?UTF-8?q?=D0=B2=D0=B0=D0=BD=D0=B8=D0=B5=20=D1=82=D0=B5=D0=BB=D0=B0=20?=
 =?UTF-8?q?=D0=B7=D0=B0=D0=BF=D1=80=D0=BE=D1=81=D0=B0=20=D0=B2=20=D1=81?=
 =?UTF-8?q?=D1=82=D1=80=D0=BE=D0=BA=D1=83=20=D0=B1=D0=B0=D0=B9=D1=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 yamd | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/yamd b/yamd
index bf8ece2..0e598bd 100755
--- a/yamd
+++ b/yamd
@@ -36,6 +36,7 @@ use warnings;
 our $VERSION = '0.1';
 
 use File::Basename;
+use Encode qw/encode/;
 
 use YAML::XS qw/Load LoadFile/;
 use JSON::XS;
@@ -267,7 +268,8 @@ if ( $task->{service} eq "domain" &&
 
 		my $request_content = "domain=" . $task->{domain};
 		foreach my $k (keys %{$task->{options}}) {
-			$request_content .= "&" . $k . "=" . $task->{options}->{$k};
+			$request_content .= "&" . $k . "=";
+			$request_content .= encode("utf8",$task->{options}->{$k});
 		}
 
 		$request->content($request_content);