Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-JSON for openSUSE:Factory checked in at 2021-02-01 13:24:53 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-JSON (Old) and /work/SRC/openSUSE:Factory/.perl-JSON.new.28504 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-JSON" Mon Feb 1 13:24:53 2021 rev:26 rq:866505 version:4.03 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-JSON/perl-JSON.changes 2019-02-28 21:25:03.397899930 +0100 +++ /work/SRC/openSUSE:Factory/.perl-JSON.new.28504/perl-JSON.changes 2021-02-01 13:24:53.657793349 +0100 @@ -1,0 +2,7 @@ +Sun Jan 24 18:07:39 UTC 2021 - Dirk M??ller <dmuel...@suse.com> + +- update to 4.03: + - corrected one typo in POD (James E Keenan) + - updated backportPP with JSON::PP 4.06 + +------------------------------------------------------------------- Old: ---- JSON-4.02.tar.gz New: ---- JSON-4.03.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-JSON.spec ++++++ --- /var/tmp/diff_new_pack.OTFG8N/_old 2021-02-01 13:24:54.201794202 +0100 +++ /var/tmp/diff_new_pack.OTFG8N/_new 2021-02-01 13:24:54.205794208 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-JSON # -# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2021 SUSE LLC # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -17,17 +17,16 @@ Name: perl-JSON -Version: 4.02 +Version: 4.03 Release: 0 %define cpan_name JSON Summary: JSON (JavaScript Object Notation) encoder/decoder License: Artistic-1.0 OR GPL-1.0-or-later Group: Development/Libraries/Perl -Url: https://metacpan.org/release/%{cpan_name} +URL: https://metacpan.org/release/%{cpan_name} Source0: https://cpan.metacpan.org/authors/id/I/IS/ISHIGAKI/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildArch: noarch -BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl BuildRequires: perl-macros Recommends: perl(JSON::XS) >= 2.34 ++++++ JSON-4.02.tar.gz -> JSON-4.03.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/.travis.yml new/JSON-4.03/.travis.yml --- old/JSON-4.02/.travis.yml 2018-12-03 15:04:39.000000000 +0100 +++ new/JSON-4.03/.travis.yml 2021-01-17 19:27:58.000000000 +0100 @@ -1,3 +1,4 @@ +dist: trusty language: perl perl: - "5.8" diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/Changes new/JSON-4.03/Changes --- old/JSON-4.02/Changes 2019-02-23 03:22:11.000000000 +0100 +++ new/JSON-4.03/Changes 2021-01-24 01:10:16.000000000 +0100 @@ -1,5 +1,9 @@ Revision history for Perl extension JSON. +4.03 2021-01-24 + - corrected one typo in POD (James E Keenan) + - updated backportPP with JSON::PP 4.06 + 4.02 2019-02-23 - fixed a test that breaks if perl is compiled with -Dquadmath (RT-128589) diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/META.json new/JSON-4.03/META.json --- old/JSON-4.02/META.json 2019-02-23 03:25:22.000000000 +0100 +++ new/JSON-4.03/META.json 2021-01-24 01:11:02.000000000 +0100 @@ -4,7 +4,7 @@ "Makamaka Hannyaharamitu, E<lt>makamaka[at]cpan.orgE<gt>" ], "dynamic_config" : 1, - "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010", + "generated_by" : "ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010", "license" : [ "perl_5" ], @@ -48,6 +48,6 @@ "url" : "https://github.com/makamaka/JSON"; } }, - "version" : "4.02", - "x_serialization_backend" : "JSON version 4.02" + "version" : "4.03", + "x_serialization_backend" : "JSON version 4.03" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/META.yml new/JSON-4.03/META.yml --- old/JSON-4.02/META.yml 2019-02-23 03:25:22.000000000 +0100 +++ new/JSON-4.03/META.yml 2021-01-24 01:11:02.000000000 +0100 @@ -7,7 +7,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 1 -generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150010' +generated_by: 'ExtUtils::MakeMaker version 7.34, CPAN::Meta::Converter version 2.150010' license: perl meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -24,5 +24,5 @@ resources: bugtracker: https://github.com/makamaka/JSON/issues repository: https://github.com/makamaka/JSON -version: '4.02' -x_serialization_backend: 'CPAN::Meta::YAML version 0.012' +version: '4.03' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/lib/JSON/backportPP/Boolean.pm new/JSON-4.03/lib/JSON/backportPP/Boolean.pm --- old/JSON-4.02/lib/JSON/backportPP/Boolean.pm 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/lib/JSON/backportPP/Boolean.pm 2021-01-24 00:58:20.000000000 +0100 @@ -11,7 +11,7 @@ fallback => 1, ); -$JSON::backportPP::Boolean::VERSION = '4.02'; +$JSON::backportPP::Boolean::VERSION = '4.06'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/lib/JSON/backportPP.pm new/JSON-4.03/lib/JSON/backportPP.pm --- old/JSON-4.02/lib/JSON/backportPP.pm 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/lib/JSON/backportPP.pm 2021-01-24 00:58:20.000000000 +0100 @@ -15,7 +15,7 @@ use Carp (); #use Devel::Peek; -$JSON::backportPP::VERSION = '4.02'; +$JSON::backportPP::VERSION = '4.06'; @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json); @@ -202,12 +202,11 @@ my ($false, $true) = @_; $self->{false} = $false; $self->{true} = $true; - return ($false, $true); } else { delete $self->{false}; delete $self->{true}; - return; } + return $self; } sub get_boolean_values { @@ -1776,7 +1775,7 @@ =head1 VERSION - 4.02 + 4.05 =head1 DESCRIPTION diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/lib/JSON.pm new/JSON-4.03/lib/JSON.pm --- old/JSON-4.02/lib/JSON.pm 2019-02-23 03:23:12.000000000 +0100 +++ new/JSON-4.03/lib/JSON.pm 2021-01-24 01:09:53.000000000 +0100 @@ -9,7 +9,7 @@ @JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json decode_json); BEGIN { - $JSON::VERSION = '4.02'; + $JSON::VERSION = '4.03'; $JSON::DEBUG = 0 unless (defined $JSON::DEBUG); $JSON::DEBUG = $ENV{ PERL_JSON_DEBUG } if exists $ENV{ PERL_JSON_DEBUG }; } @@ -943,7 +943,7 @@ $enabled = $json->get_allow_nonref -Unlike other boolean options, this opotion is enabled by default beginning +Unlike other boolean options, this option is enabled by default beginning with version C<4.0>. If C<$enable> is true (or missing), then the C<encode> method can convert a diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/00_load.t new/JSON-4.03/t/00_load.t --- old/JSON-4.02/t/00_load.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/00_load.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,5 +1,9 @@ # copied over from JSON::XS and modified to use JSON +use strict; +use warnings; + +my $loaded; BEGIN { $| = 1; print "1..1\n"; } END {print "not ok 1\n" unless $loaded;} BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/01_utf8.t new/JSON-4.03/t/01_utf8.t --- old/JSON-4.02/t/01_utf8.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/01_utf8.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 9 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/02_error.t new/JSON-4.03/t/02_error.t --- old/JSON-4.02/t/02_error.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/02_error.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 35 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/03_types.t new/JSON-4.03/t/03_types.t --- old/JSON-4.02/t/03_types.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/03_types.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 76 + 2 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/04_dwiw_encode.t new/JSON-4.03/t/04_dwiw_encode.t --- old/JSON-4.02/t/04_dwiw_encode.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/04_dwiw_encode.t 2021-01-24 00:58:20.000000000 +0100 @@ -6,6 +6,7 @@ # Authors: don use strict; +use warnings; use Test; # main diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/06_pc_pretty.t new/JSON-4.03/t/06_pc_pretty.t --- old/JSON-4.02/t/06_pc_pretty.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/06_pc_pretty.t 2021-01-24 00:58:20.000000000 +0100 @@ -2,6 +2,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 9 }; @@ -10,7 +11,7 @@ use JSON; my ($js,$obj,$json); -my $pc = new JSON; +my $pc = JSON->new; $obj = {foo => "bar"}; $js = $pc->encode($obj); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/07_pc_esc.t new/JSON-4.03/t/07_pc_esc.t --- old/JSON-4.02/t/07_pc_esc.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/07_pc_esc.t 2021-01-24 00:58:20.000000000 +0100 @@ -7,6 +7,7 @@ use Test::More; use strict; +use warnings; use utf8; BEGIN { plan tests => 17 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } @@ -16,7 +17,7 @@ ######################### my ($js,$obj,$str); -my $pc = new JSON; +my $pc = JSON->new; $obj = {test => qq|abc"def|}; $str = $pc->encode($obj); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/08_pc_base.t new/JSON-4.03/t/08_pc_base.t --- old/JSON-4.02/t/08_pc_base.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/08_pc_base.t 2021-01-24 00:58:20.000000000 +0100 @@ -4,6 +4,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; BEGIN { plan tests => 20 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } @@ -11,7 +12,7 @@ my ($js,$obj); -my $pc = new JSON; +my $pc = JSON->new; $js = q|{}|; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/09_pc_extra_number.t new/JSON-4.03/t/09_pc_extra_number.t --- old/JSON-4.02/t/09_pc_extra_number.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/09_pc_extra_number.t 2021-01-24 00:58:20.000000000 +0100 @@ -3,6 +3,7 @@ use Test::More; use strict; +use warnings; BEGIN { plan tests => 6 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } @@ -11,7 +12,7 @@ ######################### my ($js,$obj); -my $pc = new JSON; +my $pc = JSON->new; $js = '{"foo":0}'; $obj = $pc->decode($js); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/104_sortby.t new/JSON-4.03/t/104_sortby.t --- old/JSON-4.02/t/104_sortby.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/104_sortby.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ use Test::More; use strict; +use warnings; BEGIN { plan tests => 3 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON -support_by_pp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/105_esc_slash.t new/JSON-4.03/t/105_esc_slash.t --- old/JSON-4.02/t/105_esc_slash.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/105_esc_slash.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ use Test::More; -use strict; +use strict; +use warnings; BEGIN { plan tests => 2 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON -support_by_pp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/106_allow_barekey.t new/JSON-4.03/t/106_allow_barekey.t --- old/JSON-4.02/t/106_allow_barekey.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/106_allow_barekey.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ use Test::More; -use strict; +use strict; +use warnings; BEGIN { plan tests => 2 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON -support_by_pp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/107_allow_singlequote.t new/JSON-4.03/t/107_allow_singlequote.t --- old/JSON-4.02/t/107_allow_singlequote.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/107_allow_singlequote.t 2021-01-24 00:58:58.000000000 +0100 @@ -1,6 +1,7 @@ use Test::More; use strict; +use warnings; BEGIN { plan tests => 4 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON -support_by_pp; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/108_decode.t new/JSON-4.03/t/108_decode.t --- old/JSON-4.02/t/108_decode.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/108_decode.t 2021-01-24 00:58:20.000000000 +0100 @@ -2,6 +2,7 @@ # decode on Perl 5.005, 5.6, 5.8 or later # use strict; +use warnings; use Test::More; BEGIN { plan tests => 6 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/109_encode.t new/JSON-4.03/t/109_encode.t --- old/JSON-4.02/t/109_encode.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/109_encode.t 2021-01-24 00:58:20.000000000 +0100 @@ -2,6 +2,7 @@ # decode on Perl 5.005, 5.6, 5.8 or later # use strict; +use warnings; use Test::More; BEGIN { plan tests => 7 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/10_pc_keysort.t new/JSON-4.03/t/10_pc_keysort.t --- old/JSON-4.02/t/10_pc_keysort.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/10_pc_keysort.t 2021-01-24 00:58:20.000000000 +0100 @@ -3,6 +3,7 @@ use Test::More; use strict; +use warnings; BEGIN { plan tests => 1 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/110_bignum.t new/JSON-4.03/t/110_bignum.t --- old/JSON-4.02/t/110_bignum.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/110_bignum.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,5 +1,6 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 9 }; @@ -20,7 +21,7 @@ : ''; -my $json = new JSON; +my $json = JSON->new; $json->allow_nonref->allow_bignum(1); $json->convert_blessed->allow_blessed; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/112_upgrade.t new/JSON-4.03/t/112_upgrade.t --- old/JSON-4.02/t/112_upgrade.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/112_upgrade.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 3 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/113_overloaded_eq.t new/JSON-4.03/t/113_overloaded_eq.t --- old/JSON-4.02/t/113_overloaded_eq.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/113_overloaded_eq.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More tests => 4; BEGIN { @@ -28,6 +29,7 @@ package Foo; use strict; +use warnings; use overload ( 'eq' => sub { 0 }, '""' => sub { $_[0] }, @@ -41,6 +43,7 @@ package Bar; use strict; +use warnings; use overload ( 'eq' => sub { 0 }, '""' => sub { $_[0] }, diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/114_decode_prefix.t new/JSON-4.03/t/114_decode_prefix.t --- old/JSON-4.02/t/114_decode_prefix.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/114_decode_prefix.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More tests => 8; BEGIN { diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/115_tie_ixhash.t new/JSON-4.03/t/115_tie_ixhash.t --- old/JSON-4.02/t/115_tie_ixhash.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/115_tie_ixhash.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,5 +1,6 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 2 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/116_incr_parse_fixed.t new/JSON-4.03/t/116_incr_parse_fixed.t --- old/JSON-4.02/t/116_incr_parse_fixed.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/116_incr_parse_fixed.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More tests => 4; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/117_numbers.t new/JSON-4.03/t/117_numbers.t --- old/JSON-4.02/t/117_numbers.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/117_numbers.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,5 +1,6 @@ use Test::More; use strict; +use warnings; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } BEGIN { $ENV{PERL_JSON_PP_USE_B} = 0 } use JSON; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/118_boolean_values.t new/JSON-4.03/t/118_boolean_values.t --- old/JSON-4.02/t/118_boolean_values.t 2019-02-23 03:22:32.000000000 +0100 +++ new/JSON-4.03/t/118_boolean_values.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON; @@ -38,13 +39,14 @@ push @tests, [Types::Serialiser::true(), Types::Serialiser::false(), 'Types::Serialiser::BooleanBase', 'Types::Serialiser::BooleanBase']; } -plan tests => 13 * @tests; +plan tests => 15 * @tests; my $json = JSON->new; for my $test (@tests) { my ($true, $false, $true_class, $false_class, $incompat) = @$test; - $json->boolean_values($false, $true); + my $ret = $json->boolean_values($false, $true); + is $ret => $json, "returns the same object"; my ($new_false, $new_true) = $json->get_boolean_values; ok defined $new_true, "new true class is defined"; ok defined $new_false, "new false class is defined"; @@ -71,7 +73,8 @@ is $should_false_json => 'false', "A $false_class object turns into JSON false"; } - $json->boolean_values(); + $ret = $json->boolean_values(); + is $ret => $json, "returns the same object"; ok !$json->get_boolean_values, "reset boolean values"; $should_true = $json->allow_nonref(1)->decode('true'); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/11_pc_expo.t new/JSON-4.03/t/11_pc_expo.t --- old/JSON-4.02/t/11_pc_expo.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/11_pc_expo.t 2021-01-24 00:58:20.000000000 +0100 @@ -3,6 +3,7 @@ use Test::More; use strict; +use warnings; BEGIN { plan tests => 8 + 2 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } @@ -10,7 +11,7 @@ ######################### my ($js,$obj); -my $pc = new JSON; +my $pc = JSON->new; $js = q|[-12.34]|; $obj = $pc->decode($js); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/12_blessed.t new/JSON-4.03/t/12_blessed.t --- old/JSON-4.02/t/12_blessed.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/12_blessed.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 16 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/13_limit.t new/JSON-4.03/t/13_limit.t --- old/JSON-4.02/t/13_limit.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/13_limit.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 11 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/14_latin1.t new/JSON-4.03/t/14_latin1.t --- old/JSON-4.02/t/14_latin1.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/14_latin1.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 4 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/15_prefix.t new/JSON-4.03/t/15_prefix.t --- old/JSON-4.02/t/15_prefix.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/15_prefix.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 4 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/16_tied.t new/JSON-4.03/t/16_tied.t --- old/JSON-4.02/t/16_tied.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/16_tied.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 2 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/17_relaxed.t new/JSON-4.03/t/17_relaxed.t --- old/JSON-4.02/t/17_relaxed.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/17_relaxed.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 8 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/19_incr.t new/JSON-4.03/t/19_incr.t --- old/JSON-4.02/t/19_incr.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/19_incr.t 2021-01-24 00:58:20.000000000 +0100 @@ -45,7 +45,7 @@ { my $text = '[5],{"":1} , [ 1,2, 3], {"3":null}'; - my $coder = new JSON; + my $coder = JSON->new; for (0 .. length $text) { my $a = substr $text, 0, $_; my $b = substr $text, $_; @@ -69,7 +69,7 @@ { my $text = '[x][5]'; - my $coder = new JSON; + my $coder = JSON->new; $coder->incr_parse ($text); ok (!eval { $coder->incr_parse }, "sparse1"); ok (!eval { $coder->incr_parse }, "sparse2"); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/20_unknown.t new/JSON-4.03/t/20_unknown.t --- old/JSON-4.02/t/20_unknown.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/20_unknown.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,11 +1,10 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 10 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } - -use strict; use JSON; my $json = JSON->new; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/21_evans.t new/JSON-4.03/t/21_evans.t --- old/JSON-4.02/t/21_evans.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/21_evans.t 2021-01-24 00:58:20.000000000 +0100 @@ -14,7 +14,7 @@ my $data = ["\x{53f0}\x{6240}\x{306e}\x{6d41}\x{3057}", "\x{6c60}\x{306e}\x{30ab}\x{30a8}\x{30eb}"]; my $js = JSON->new->encode ($data); -my $j = new JSON; +my $j = JSON->new; my $object = $j->incr_parse ($js); die "no object" if !$object; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/52_object.t new/JSON-4.03/t/52_object.t --- old/JSON-4.02/t/52_object.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/52_object.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,17 @@ # copied over from JSON::XS and modified to use JSON +package JSON::freeze; + +1; + +package JSON::tojson; + +1; + +package main; + use strict; +use warnings; use Test::More; BEGIN { $^W = 0 } # hate @@ -52,8 +63,8 @@ 777 } -my $obj = bless { k => 1 }, JSON::freeze::; -my $enc = $json->encode ($obj); +$obj = bless { k => 1 }, JSON::freeze::; +$enc = $json->encode ($obj); ok ($enc eq '("JSON::freeze")[3,1,2]'); my $dec = $json->decode ($enc); diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/99_binary.t new/JSON-4.03/t/99_binary.t --- old/JSON-4.02/t/99_binary.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/99_binary.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,6 +1,7 @@ # copied over from JSON::XS and modified to use JSON use strict; +use warnings; use Test::More; BEGIN { plan tests => 24576 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/gh_28_json_test_suite.t new/JSON-4.03/t/gh_28_json_test_suite.t --- old/JSON-4.02/t/gh_28_json_test_suite.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/gh_28_json_test_suite.t 2021-01-24 00:58:20.000000000 +0100 @@ -2,6 +2,7 @@ # by Nicolas Seriot (https://github.com/nst/JSONTestSuite) use strict; +use warnings; use Test::More; BEGIN { plan skip_all => 'this test is for Perl 5.8 or later' if $] < 5.008; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/gh_29_trailing_false_value.t new/JSON-4.03/t/gh_29_trailing_false_value.t --- old/JSON-4.02/t/gh_29_trailing_false_value.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/gh_29_trailing_false_value.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 1 }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/rt_116998_wrong_character_offset.t new/JSON-4.03/t/rt_116998_wrong_character_offset.t --- old/JSON-4.02/t/rt_116998_wrong_character_offset.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/rt_116998_wrong_character_offset.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 4 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/rt_90071_incr_parse.t new/JSON-4.03/t/rt_90071_incr_parse.t --- old/JSON-4.02/t/rt_90071_incr_parse.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/rt_90071_incr_parse.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/JSON-4.02/t/zero-mojibake.t new/JSON-4.03/t/zero-mojibake.t --- old/JSON-4.02/t/zero-mojibake.t 2019-02-23 03:20:26.000000000 +0100 +++ new/JSON-4.03/t/zero-mojibake.t 2021-01-24 00:58:20.000000000 +0100 @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 1 };
