[Moscow.pm] utf8:all vs json

[Nick Knutov]

use utf8::all;
use Cpanel::JSON::XS qw ();
sub p2json { return Cpanel::JSON::XS::encode_json(shift); };

my $ha = {
    a => 1,
    b => 'c',
    c => 'д'
};
say Dumper p2json($ha);

$VAR1 = '{"c":"д","a":1,"b":"c"}';

Однако, если вместо uft8::all использовать просто utf8, то всё хорошо:

$VAR1 = '{"c":"д","a":1,"b":"c"}';

Отсюда вопрос - почему такая фигня и что делать?

ps: Cpanel::JSON::XS или другой модуль - значения не имеет.

-- 
Best Regards,
Nick Knutov
http://knutov.com
ICQ: 272873706
Voice: +7-904-84-23-130