use strict; use Test::More; BEGIN { plan tests => 1 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON; my $json = JSON->new; my $input = q[ { "dynamic_config" : 0, "x_contributors" : [ "大沢 和宏", "Ævar Arnfjörð" ] } ]; eval { $json->decode($input) }; is $@, '', 'decodes 0 with mojibake without error';