From 4b4b99f934ff0f13937445c8f6f6ac385d01f724 Mon Sep 17 00:00:00 2001
From: "Roman A. Grigorovich" <atz@mail.ru>
Date: Wed, 5 Oct 2016 14:18:09 +0300
Subject: [PATCH] Fix 'ERROR: Wide character in send at Socket.pm' (Perl
 5.22.2)

---
 perl/Realplexor/Event/Server.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Realplexor/Event/Server.pm b/perl/Realplexor/Event/Server.pm
index a38d857..80852ea 100644
--- a/perl/Realplexor/Event/Server.pm
+++ b/perl/Realplexor/Event/Server.pm
@@ -77,7 +77,7 @@ sub handle_connect {
     eval {
         my $accepted = $sock->accept() or die "accept failed: $@";
         $accepted->blocking(0); # this line is REALLY needed, else a hang may appear
-        binmode($accepted);
+        binmode($accepted, ':utf8');
         my $fh = new Realplexor::Event::FH($accepted);
         my $connection = $self->{connectionclass}->new($fh, $self);
         my $callback; $callback = sub {