diff options
| -rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
| -rw-r--r-- | cpan/JSON-PP/lib/JSON/PP.pm | 28 | ||||
| -rw-r--r-- | cpan/JSON-PP/t/019_incr.t | 13 |
3 files changed, 12 insertions, 31 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 55f23908a9..f6943f34ff 100755 --- 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 2e617fc622..e9e65b11c1 100644 --- 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 c5fab96002..dc84c55106 100644 --- 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 |