Codebase list libjson-pp-perl / 0a72ba4
New upstream version 4.10000 gregor herrmann 1 year, 10 months ago
8 changed file(s) with 16 addition(s) and 13 deletion(s). Raw diff Collapse all Expand all
+4
-0
Changes less more
00 Revision history for Perl extension JSON::PP.
1
2 4.10 2022-06-24
3 - fix a regression of decode_error introduced at 4.08 (GH#75, reported by andk++)
4 - convert all tests to use Test::More (GH#70, haarg++)
15
26 4.09 2022-05-22
37 - reverted core boolean support for now (GH#72)
+2
-2
META.json less more
4545 "url" : "https://github.com/makamaka/JSON-PP"
4646 }
4747 },
48 "version" : "4.09",
49 "x_serialization_backend" : "JSON::PP version 4.09"
48 "version" : "4.10",
49 "x_serialization_backend" : "JSON::PP version 4.10"
5050 }
+1
-1
META.yml less more
2222 resources:
2323 bugtracker: https://github.com/makamaka/JSON-PP/issues
2424 repository: https://github.com/makamaka/JSON-PP
25 version: '4.09'
25 version: '4.10'
2626 x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
+1
-1
lib/JSON/PP/Boolean.pm less more
99 fallback => 1,
1010 );
1111
12 $JSON::PP::Boolean::VERSION = '4.09';
12 $JSON::PP::Boolean::VERSION = '4.10';
1313
1414 1;
1515
+2
-2
lib/JSON/PP.pm less more
1313 use Carp ();
1414 #use Devel::Peek;
1515
16 $JSON::PP::VERSION = '4.09';
16 $JSON::PP::VERSION = '4.10';
1717
1818 @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
1919
13081308 }
13091309
13101310 for my $c ( unpack( $type, $str ) ) { # emulate pv_uni_display() ?
1311 my $chr_c = $c;
1311 my $chr_c = chr($c);
13121312 $mess .= $chr_c eq '\\' ? '\\\\'
13131313 : $chr_c =~ /[[:print:]]/ ? $chr_c
13141314 : $chr_c eq '\a' ? '\a'
+1
-3
t/004_dwiw_encode.t less more
66
77 use strict;
88 use warnings;
9 use Test;
9 use Test::More tests => 5;
1010
1111 # main
1212 {
13 BEGIN { plan tests => 5 }
14
1513 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
1614
1715 use JSON::PP;
+1
-3
t/005_dwiw_decode.t less more
66
77 use strict;
88 use warnings;
9 use Test;
9 use Test::More tests => 7;
1010
1111 # main
1212 {
13 BEGIN { plan tests => 7 }
14
1513 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
1614
1715 use JSON::PP;
+4
-1
t/108_decode.t less more
44 use warnings;
55 use Test::More;
66
7 BEGIN { plan tests => 6 };
7 BEGIN { plan tests => 7 };
88
99 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
1010
4040
4141 is($utf8, ($isASCII) ? "\xf0\x92\x90\x80" : "\xDE\x4A\x41\x41");
4242
43 eval { $json->decode(q|{"action":"foo" "method":"bar","tid":1}|) };
44 my $error = $@;
45 like $error => qr!""method":"bar","tid"..."!;