more binmode attempts

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

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index 431aee51cd6a6b2c142090f17cb4709b7051a6e4..21a31fe93bd097bdbe24e942bf5c36f39209941d 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -130,6 +130,7 @@ sub irc {
                #binmode $conns{$mynick}->{_socket}, ":encoding(UTF-8)";
                # TODO: need to input bytes, but output utf8
                binmode $conns{$mynick}->{_socket}, ":bytes";
+               binmode $conns{$mynick}->socket, ":bytes";
 
                $conns{$mynick}->maxlinelen($maxlinelen);