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
+
+- 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 };