TODO: input bytes, output utf8

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1892 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index 19c5bc6a147486d3b95c05c7d09ddd50ee92e30e..431aee51cd6a6b2c142090f17cb4709b7051a6e4 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -126,7 +126,10 @@ sub irc {
            }
            if (defined $conns{$mynick}) {
                # explicit binmode for socket as "use open" does not seem to work here
-               binmode $conns{$mynick}->{_socket}, ":encoding(UTF-8)";
+               #binmode $conns{$mynick}->{_socket}, ":utf8";
+               #binmode $conns{$mynick}->{_socket}, ":encoding(UTF-8)";
+               # TODO: need to input bytes, but output utf8
+               binmode $conns{$mynick}->{_socket}, ":bytes";
 
                $conns{$mynick}->maxlinelen($maxlinelen);