let unclean utf8 in?

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

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