Skip to content
This repository was archived by the owner on Jun 1, 2023. It is now read-only.

Commit f8b59d1

Browse files
committed
JSON-PP: Update to 2.94_01
cperl specific. Many upstream improvements
1 parent 4766a19 commit f8b59d1

37 files changed

+1074
-681
lines changed

MANIFEST

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1523,7 +1523,12 @@ cpan/JSON-PP/t/113_overloaded_eq.t
15231523
cpan/JSON-PP/t/114_decode_prefix.t
15241524
cpan/JSON-PP/t/115_tie_ixhash.t
15251525
cpan/JSON-PP/t/116_incr_parse_fixed.t
1526+
cpan/JSON-PP/t/117_numbers.t
15261527
cpan/JSON-PP/t/_unicode_handling.pm
1528+
cpan/JSON-PP/t/gh_28_json_test_suite.t
1529+
cpan/JSON-PP/t/gh_29_trailing_false_value.t
1530+
cpan/JSON-PP/t/rt_116998_wrong_character_offset.t
1531+
cpan/JSON-PP/t/rt_90071_incr_parse.t
15271532
cpan/JSON-PP/t/zero-mojibake.t
15281533
cpan/libnet/lib/Net/Cmd.pm
15291534
cpan/libnet/lib/Net/Config.pm

Porting/Maintainers.pl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -899,7 +899,7 @@ package Maintainers;
899899
},
900900

901901
'JSON::PP' => {
902-
'DISTRIBUTION' => 'MAKAMAKA/JSON-PP-2.27400.tar.gz',
902+
'DISTRIBUTION' => 'MAKAMAKA/JSON-PP-2.94.tar.gz',
903903
'FILES' => q[cpan/JSON-PP],
904904
# fallback to Cpanel::JSON::XS, fixed Boolean
905905
'CUSTOMIZED' => [ qw( lib/JSON/PP.pm )],

cpan/JSON-PP/bin/json_pp

Lines changed: 7 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -6,8 +6,6 @@ use Getopt::Long;
66

77
use JSON::PP ();
88

9-
my $VERSION = '1.00';
10-
119
# imported from JSON-XS/bin/json_xs
1210

1311
my %allow_json_opt = map { $_ => 1 } qw(
@@ -22,11 +20,11 @@ GetOptions(
2220
't=s' => \( my $opt_to = 'json' ),
2321
'json_opt=s' => \( my $json_opt = 'pretty' ),
2422
'V' => \( my $version ),
25-
) or die "Usage: $0 [-v] -f from_format [-t to_format]\n";
23+
) or die "Usage: $0 [-V] [-f from_format] [-t to_format] [-json_opt options]\n";
2624

2725

2826
if ( $version ) {
29-
print "$VERSION\n";
27+
print "$JSON::PP::VERSION\n";
3028
exit;
3129
}
3230

@@ -58,6 +56,11 @@ my %T = (
5856
},
5957
'dumper' => sub {
6058
require Data::Dumper;
59+
local $Data::Dumper::Terse = 1;
60+
local $Data::Dumper::Indent = 1;
61+
local $Data::Dumper::Useqq = 1;
62+
local $Data::Dumper::Quotekeys = 0;
63+
local $Data::Dumper::Sortkeys = 1;
6164
Data::Dumper::Dumper($_)
6265
},
6366
);

0 commit comments

Comments
 (0)