diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-03-13 16:51:16 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-03-13 16:51:16 +0000 |
| commit | 16880a158fe95327f9634a28c4541a8f0e1ef5be (patch) | |
| tree | e092273eb85084c280ccec6d23cbe30584283591 /cpan/JSON-PP | |
| parent | fbe6fff787fe84ef019f725d2020dcc7c5281a7d (diff) | |
| download | perl-16880a158fe95327f9634a28c4541a8f0e1ef5be.tar.gz | |
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
Diffstat (limited to 'cpan/JSON-PP')
| -rw-r--r-- | cpan/JSON-PP/lib/JSON/PP.pm | 28 | ||||
| -rw-r--r-- | cpan/JSON-PP/t/019_incr.t | 13 |
2 files changed, 11 insertions, 30 deletions
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 |