Update JSON-PP to CPAN version 2.27202

  [DELTA]

  2.27202  Wed Mar 13 15:41:22 2013
    - license in Makefile.PL was missing

  2.27201  Wed Mar 13 13:22:33 2013
    - occasionally failed in t/019_incr.t in Perl 5.17.6 or more
          (because of hash iterator randomization)
          reported and patched by demerphq
          https://rt.cpan.org/Public/Bug/Display.html?id=83421

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 55f23908a917a03ef17b2afcc01f844bb50c359b..f6943f34ff4d2474500b5f5a3aeb54f9c49bb9e5 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1074,7 +1074,7 @@ use File::Glob qw(:case);
 
     'JSON::PP' => {
         'MAINTAINER'   => 'makamaka',
-        'DISTRIBUTION' => 'MAKAMAKA/JSON-PP-2.27200.tar.gz',
+        'DISTRIBUTION' => 'MAKAMAKA/JSON-PP-2.27202.tar.gz',
         'FILES'        => q[cpan/JSON-PP],
         'EXCLUDED'     => [
             't/900_pod.t',    # Pod testing

diff --git a/cpan/JSON-PP/lib/JSON/PP.pm b/cpan/JSON-PP/lib/JSON/PP.pm
index 2e617fc62279fb961070d82ac052be6f5726de95..e9e65b11c1c71fb70793f75e2a3c8e1d53edc4e3 100644 (file)
--- a/cpan/JSON-PP/lib/JSON/PP.pm
+++ b/cpan/JSON-PP/lib/JSON/PP.pm
@@ -11,7 +11,7 @@ use Carp ();
 use B ();
 #use Devel::Peek;
 
-$JSON::PP::VERSION = '2.27200';
+$JSON::PP::VERSION = '2.27202';
 
 @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
 
@@ -1630,32 +1630,14 @@ JSON::PP - JSON::XS compatible pure-Perl module.
 
 =head1 VERSION
 
-    2.27200
+    2.27202
 
 L<JSON::XS> 2.27 (~2.30) compatible.
 
 =head1 NOTE
 
-JSON::PP was inculded in JSON distribution (CPAN module).
-It comes to be a perl core module in Perl 5.14.
-
-    [STEPS]
-
-    * release this module as JSON::PPdev.
-
-    * release other PP::* modules as JSON::PP::Compat*.
-
-    * JSON distribution will inculde yet another JSON::PP modules.
-      They are JSNO::backportPP. So JSON.pm should work as it did at all!
-
-    * remove JSON::PP and JSON::PP::* modules from JSON distribution
-       and release it as developer version.
-
-    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-
-    * release JSON distribution as stable version.
-
-    * rename JSON::PPdev into JSON::PP and release on CPAN. <<<< HERE
+JSON::PP had been inculded in JSON distribution (CPAN module).
+It was a perl core module in Perl 5.14.
 
 =head1 DESCRIPTION
 
@@ -2809,7 +2791,7 @@ Makamaka Hannyaharamitu, E<lt>makamaka[at]cpan.orgE<gt>
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright 2007-2011 by Makamaka Hannyaharamitu
+Copyright 2007-2013 by Makamaka Hannyaharamitu
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself. 

diff --git a/cpan/JSON-PP/t/019_incr.t b/cpan/JSON-PP/t/019_incr.t
index c5fab9600200ba3a6ab608637eea71874c0d6acb..dc84c551060c75224da60cf2af561db557151359 100644 (file)
--- a/cpan/JSON-PP/t/019_incr.t
+++ b/cpan/JSON-PP/t/019_incr.t
@@ -13,11 +13,13 @@ use JSON::PP;
 
 if ( $] >= 5.006 ) {
 
-eval <<'TEST';
+eval <<'TEST' or die "Failed to eval test code for version $]: $@";
 
 sub splitter {
    my ($coder, $text) = @_;
 
+   $coder->canonical(1) if $] >= 5.017009;
+
    for (0 .. length $text) {
       my $a = substr $text, 0, $_;
       my $b = substr $text, $_;
@@ -27,7 +29,7 @@ sub splitter {
 
       my $data = $coder->incr_parse;
       ok ($data);
-      ok ($coder->encode ($data) eq $coder->encode ($coder->decode ($text)), "data");
+      is ($coder->encode ($data), $coder->encode ($coder->decode ($text)), "data");
       ok ($coder->incr_text =~ /^\s*$/, "tailws");
    }
 }
@@ -75,16 +77,15 @@ splitter +JSON::PP->new->allow_nonref, ' "5" ';
    ok ('[5]' eq $coder->encode (scalar $coder->incr_parse), "sparse3");
 }
 
-
+1
 TEST
 
-print $@;
 
 }
 else {
 
 
-eval <<'TEST';
+eval <<'TEST' or die "Failed to eval test code for version $]: $@";
 
 my $incr_text;
 
@@ -148,8 +149,6 @@ splitter +JSON::PP->new->allow_nonref, ' "5" ';
 
 TEST
 
-print $@;
-
 } # for 5.005