JSON-PP-4.03_01

only light docs adjustments for Cpanel::JSON::XS and cperl

Porting/Maintainers.pl

@@ -914,10 +914,10 @@ package Maintainers;
     },
 
     'JSON::PP' => {
-        'DISTRIBUTION' => 'MAKAMAKA/JSON-PP-4.02.tar.gz',
+        'DISTRIBUTION' => 'MAKAMAKA/JSON-PP-4.03.tar.gz',
         'FILES'        => q[cpan/JSON-PP],
-        # fallback to Cpanel::JSON::XS, fixed Boolean
-        #'CUSTOMIZED'   => [ qw( lib/JSON/PP.pm lib/JSON/PP/Boolean.pm )],
+        # doc only
+        #'CUSTOMIZED'   => [ qw( lib/JSON/PP.pm )],
     },
 
     'lib' => {

cpan/JSON-PP/bin/json_pp

@@ -3,6 +3,7 @@
 BEGIN { pop @INC if $INC[-1] eq '.' }
 use strict;
 use Getopt::Long;
+use Encode ();
 
 use JSON::PP ();
 
@@ -42,10 +43,17 @@ for my $opt (split /,/, $json_opt) {
 my %F = (
    'json' => sub {
       my $json = JSON::PP->new;
+      my $enc =
+         /^\x00\x00\x00/s  ? "utf-32be"
+       : /^\x00.\x00/s     ? "utf-16be"
+       : /^.\x00\x00\x00/s ? "utf-32le"
+       : /^.\x00.\x00/s    ? "utf-16le"
+       :                     "utf-8";
       for my $key (keys %json_opt) {
+        next if $key eq 'utf8';
         $json->$key($json_opt{$key});
       }
-      $json->decode( $_ );
+      $json->decode( Encode::decode($enc, $_) );
    },
    'eval' => sub {
         my $v = eval "no strict;\n#line 1 \"input\"\n$_";
@@ -84,8 +92,11 @@ $F{$opt_from}
 $T{$opt_to}
    or die "$opt_from: not a valid toformat\n";
 
-local $/;
-$_ = <STDIN>;
+{
+  local $/;
+  binmode STDIN;
+  $_ = <STDIN>;
+}
 
 $_ = $F{$opt_from}->();
 $_ = $T{$opt_to}->();

cpan/JSON-PP/lib/JSON/PP.pm

@@ -14,7 +14,7 @@ use JSON::PP::Boolean;
 use Carp ();
 #use Devel::Peek;
 
-$JSON::PP::VERSION = '4.02_01';
+$JSON::PP::VERSION = '4.03_01';
 
 @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
 
@@ -1773,14 +1773,14 @@ JSON::PP - JSON::XS compatible pure-Perl module.
 
 =head1 VERSION
 
-    4.02
+    4.03_01
 
 =head1 DESCRIPTION
 
 JSON::PP is a pure perl JSON decoder/encoder, and (almost) compatible
-to much faster L<JSON::XS> written by Marc Lehmann in C. JSON::PP
-works as a fallback module when you use L<JSON> module without having
-installed JSON::XS.
+to L<JSON>, L<JSON::XS> and L<Cpanel::JSON::XS>. JSON::PP works as a
+fallback module when you use L<JSON> module without having installed
+JSON::XS or Cpanel::JSON::XS.
 
 Because of this fallback feature of JSON.pm, JSON::PP tries not to
 be more JavaScript-friendly than JSON::XS (i.e. not to escape extra

cpan/JSON-PP/lib/JSON/PP/Boolean.pm

@@ -10,7 +10,7 @@ overload::import('overload',
     fallback => 1,
 );
 
-$JSON::PP::Boolean::VERSION = '4.02_01';
+$JSON::PP::Boolean::VERSION = '4.03';
 
 1;
 

dist/Module-CoreList/lib/Module/CoreList.pm

@@ -18971,7 +18971,7 @@ our %delta :const = (
             'IO::Uncompress::Inflate'=> '2.086',
             'IO::Uncompress::RawInflate'=> '2.086',
             'IO::Uncompress::Unzip' => '2.086',
-            'JSON::PP'              => '4.02_01',
+            'JSON::PP'              => '4.03_01',
             'Math::BigFloat'        => '1.999816',
             'Math::BigInt'          => '1.999816',
             'Math::BigInt::Calc'    => '1.999816',

pod/perlcdelta.pod

@@ -834,7 +834,7 @@ L<[cpan #105700]|https://rt.cpan.org/Ticket/Display.html?id=1105700>
 
 probe for more external gzips, make t/external.t strict safe.
 
-=item L<JSON::PP>  4.02_01
+=item L<JSON::PP>  4.03_01
 
 Upstream + Keep some of our cperl-specific docs