@@ -80,9 +80,9 @@ sub parse_query { $val =~ s/[\r\n\0\001]//g; } - Encode::_utf8_on($val) if $::ENCODE; + $val = Encode::decode_utf8($val) if $::ENCODE; - $key => $val; # Return a hash element to map. + $key => $val; # Return a hash element to map. } split(/[&;]/, $query) }; } modules/parse.pl @@ -1174,7 +1174,7 @@ sub init { if($::ENCODE) { eval { local $SIG{__DIE__}; - binmode STDOUT, ":utf8"; + binmode STDOUT, ":encoding(utf-8)"; }; } nph-irc.cgi 008bbd04732f8d6ca159b02461ce38550c785cc8 David Leadbeater dgl@dgl.cx http://github.com/dgl/cgiirc/commit/d8ecd089022091c310c938faebef0619c3da367b d8ecd089022091c310c938faebef0619c3da367b 2008-11-10T11:45:16-08:00 2008-11-10T11:45:16-08:00 UTF-8 fixes e5a90c1d929792d3d1b943564418ec07ab24e22b David Leadbeater dgl@dgl.cx