This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade JSON::PP from version 2.94 to 2.97000
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 21 Nov 2017 08:29:00 +0000 (08:29 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 21 Nov 2017 08:29:00 +0000 (08:29 +0000)
Porting/Maintainers.pl
cpan/JSON-PP/bin/json_pp
cpan/JSON-PP/lib/JSON/PP.pm
cpan/JSON-PP/lib/JSON/PP/Boolean.pm
cpan/JSON-PP/t/003_types.t
cpan/JSON-PP/t/110_bignum.t

index 15e6aa4..f2137e9 100755 (executable)
@@ -644,7 +644,7 @@ use File::Glob qw(:case);
     },
 
     'JSON::PP' => {
-        'DISTRIBUTION' => 'ISHIGAKI/JSON-PP-2.94.tar.gz',
+        'DISTRIBUTION' => 'ISHIGAKI/JSON-PP-2.97000.tar.gz',
         'FILES'        => q[cpan/JSON-PP],
     },
 
index 1bde07c..a0d245c 100644 (file)
@@ -50,7 +50,7 @@ my %F = (
 my %T = (
    'null' => sub { "" },
    'json' => sub {
-      my $json = JSON::PP->new;
+      my $json = JSON::PP->new->utf8;
       $json->$_() for @json_opt;
       $json->encode( $_ );
    },
index fb07cee..f608c29 100644 (file)
@@ -14,7 +14,7 @@ use JSON::PP::Boolean;
 use Carp ();
 #use Devel::Peek;
 
-$JSON::PP::VERSION = '2.94';
+$JSON::PP::VERSION = '2.97000';
 
 @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
 
@@ -1405,7 +1405,7 @@ BEGIN {
 $JSON::PP::true  = do { bless \(my $dummy = 1), "JSON::PP::Boolean" };
 $JSON::PP::false = do { bless \(my $dummy = 0), "JSON::PP::Boolean" };
 
-sub is_bool { defined $_[0] and UNIVERSAL::isa($_[0], "JSON::PP::Boolean"); }
+sub is_bool { blessed $_[0] and $_[0]->isa("JSON::PP::Boolean"); }
 
 sub true  { $JSON::PP::true  }
 sub false { $JSON::PP::false }
@@ -1654,7 +1654,7 @@ JSON::PP - JSON::XS compatible pure-Perl module.
 
 =head1 VERSION
 
-    2.91_04
+    2.97000
 
 =head1 DESCRIPTION
 
index ad9284f..bb577bf 100644 (file)
@@ -8,7 +8,7 @@ use overload (
     fallback => 1,
 );
 
-$JSON::PP::Boolean::VERSION = '2.94';
+$JSON::PP::Boolean::VERSION = '2.97000';
 
 1;
 
index 8a20ee3..22e0f7e 100644 (file)
@@ -2,7 +2,7 @@
 use strict;
 use Test::More;
 
-BEGIN { plan tests => 76 };
+BEGIN { plan tests => 78 };
 
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 
@@ -21,6 +21,8 @@ ok ($false == !$true);
 ok (JSON::PP::is_bool $false);
 ok (++$false == 1);
 ok (!JSON::PP::is_bool $false);
+ok (!JSON::PP::is_bool "JSON::PP::Boolean");
+ok (!JSON::PP::is_bool {}); # GH-34
 
 ok (JSON::PP->new->allow_nonref (1)->decode ('5') == 5);
 ok (JSON::PP->new->allow_nonref (1)->decode ('-5') == -5);
index e97c89e..c4c282f 100644 (file)
@@ -27,7 +27,7 @@ $json->convert_blessed->allow_blessed;
 
 my $num  = $json->decode(q|100000000000000000000000000000000000000|);
 
-isa_ok($num, 'Math::BigInt');
+ok($num->isa('Math::BigInt'));
 is("$num", $fix . '100000000000000000000000000000000000000');
 is($json->encode($num), $fix . '100000000000000000000000000000000000000');
 
@@ -40,7 +40,7 @@ ok(!(ref $num and $num->isa('Math::BigFloat')), 'small integer is not a BigFloat
 
 $num  = $json->decode(q|2.0000000000000000001|);
 
-isa_ok($num, 'Math::BigFloat');
+ok($num->isa('Math::BigFloat'));
 is("$num", '2.0000000000000000001');
 is($json->encode($num), '2.0000000000000000001');