Update backportPP with JSON::PP 4.10

Author: charsbar

lib/JSON/backportPP.pm

@@ -15,7 +15,7 @@ use JSON::backportPP::Boolean;
 use Carp ();
 #use Devel::Peek;
 
-$JSON::backportPP::VERSION = '4.09';
+$JSON::backportPP::VERSION = '4.10';
 
 @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
 
@@ -1310,7 +1310,7 @@ BEGIN {
         }
 
         for my $c ( unpack( $type, $str ) ) { # emulate pv_uni_display() ?
-            my $chr_c = $c;
+            my $chr_c = chr($c);
             $mess .=  $chr_c eq '\\' ? '\\\\'
                     : $chr_c =~ /[[:print:]]/ ? $chr_c
                     : $chr_c eq '\a' ? '\a'

lib/JSON/backportPP/Boolean.pm

@@ -11,7 +11,7 @@ overload::import('overload',
     fallback => 1,
 );
 
-$JSON::backportPP::Boolean::VERSION = '4.09';
+$JSON::backportPP::Boolean::VERSION = '4.10';
 
 1;
 

t/04_dwiw_encode.t

@@ -7,12 +7,10 @@
 
 use strict;
 use warnings;
-use Test;
+use Test::More tests => 5;
 
 # main
 {
-    BEGIN { plan tests => 5 }
-
     BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
 
 use JSON;

t/05_dwiw_decode.t

@@ -7,12 +7,10 @@
 
 use strict;
 use warnings;
-use Test;
+use Test::More tests => 7;
 
 # main
 {
-    BEGIN { plan tests => 7 }
-
     BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
 
 use JSON;

t/108_decode.t

@@ -5,7 +5,7 @@ use strict;
 use warnings;
 use Test::More;
 
-BEGIN { plan tests => 6 };
+BEGIN { plan tests => 7 };
 
 BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
 
@@ -41,3 +41,6 @@ utf8::encode($utf8); # UTF-8 flagged off
 
 is($utf8, ($isASCII) ? "\xf0\x92\x90\x80" : "\xDE\x4A\x41\x41");
 
+eval { $json->decode(q|{"action":"foo" "method":"bar","tid":1}|) };
+my $error = $@;
+like $error => qr!""method":"bar","tid"..."!;