Hello community,
here is the log from the commit of package perl-JSON for openSUSE:Factory
checked in at 2017-11-23 09:41:19
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-JSON (Old)
and /work/SRC/openSUSE:Factory/.perl-JSON.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-JSON"
Thu Nov 23 09:41:19 2017 rev:21 rq:544104 version:2.97000
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-JSON/perl-JSON.changes 2017-06-07
09:52:37.482413333 +0200
+++ /work/SRC/openSUSE:Factory/.perl-JSON.new/perl-JSON.changes 2017-11-23
09:41:32.610799141 +0100
@@ -1,0 +2,26 @@
+Tue Nov 21 06:28:09 UTC 2017 - co...@suse.com
+
+- updated to 2.97000
+ see /usr/share/doc/packages/perl-JSON/Changes
+
+ 2.97000 2017-11-21
+ - updated backportPP with JSON::PP 2.97000
+ - use 5 digit minor version number for a while to avoid
+ confusion
+ - fixed is_bool to use blessed() instead of ref()
+
+-------------------------------------------------------------------
+Mon Nov 20 06:29:28 UTC 2017 - co...@suse.com
+
+- updated to 2.96
+ see /usr/share/doc/packages/perl-JSON/Changes
+
+ 2.96 2017-11-20
+ - fixed packaging issue
+ - updated backportPP with JSON::PP 2.96
+ - not to use newer Test::More features (RT-122421; ilmari++)
+
+ 2.95 2017-11-20
+ - updated backportPP with JSON::PP 2.95
+
+-------------------------------------------------------------------
Old:
----
JSON-2.94.tar.gz
New:
----
JSON-2.97000.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-JSON.spec ++++++
--- /var/tmp/diff_new_pack.EHPFdu/_old 2017-11-23 09:41:34.302737410 +0100
+++ /var/tmp/diff_new_pack.EHPFdu/_new 2017-11-23 09:41:34.306737264 +0100
@@ -17,7 +17,7 @@
Name: perl-JSON
-Version: 2.94
+Version: 2.97000
Release: 0
%define cpan_name JSON
Summary: JSON (JavaScript Object Notation) encoder/decoder
++++++ JSON-2.94.tar.gz -> JSON-2.97000.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/Changes new/JSON-2.97000/Changes
--- old/JSON-2.94/Changes 2017-05-29 07:41:28.000000000 +0200
+++ new/JSON-2.97000/Changes 2017-11-20 18:19:16.000000000 +0100
@@ -1,5 +1,19 @@
Revision history for Perl extension JSON.
+2.97000 2017-11-21
+ - updated backportPP with JSON::PP 2.97000
+ - use 5 digit minor version number for a while to avoid
+ confusion
+ - fixed is_bool to use blessed() instead of ref()
+
+2.96 2017-11-20
+ - fixed packaging issue
+ - updated backportPP with JSON::PP 2.96
+ - not to use newer Test::More features (RT-122421; ilmari++)
+
+2.95 2017-11-20
+ - updated backportPP with JSON::PP 2.95
+
2.94 2017-05-29
- fixed VERSION issue caused by VERSION methods added to abstract
backend packages (RT-121892; ppisar++)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/MANIFEST new/JSON-2.97000/MANIFEST
--- old/JSON-2.94/MANIFEST 2017-05-29 07:42:27.000000000 +0200
+++ new/JSON-2.97000/MANIFEST 2017-11-20 18:21:19.000000000 +0100
@@ -10,6 +10,7 @@
Makefile.PL
MANIFEST This list of files
README
+t/00_backend_version.t
t/00_load.t
t/00_load_backport_pp.t
t/00_pod.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/META.json new/JSON-2.97000/META.json
--- old/JSON-2.94/META.json 2017-05-29 07:42:27.000000000 +0200
+++ new/JSON-2.97000/META.json 2017-11-20 18:21:19.000000000 +0100
@@ -45,5 +45,5 @@
"url" : "https://github.com/makamaka/JSON";
}
},
- "version" : "2.94"
+ "version" : "2.97000"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/META.yml new/JSON-2.97000/META.yml
--- old/JSON-2.94/META.yml 2017-05-29 07:42:27.000000000 +0200
+++ new/JSON-2.97000/META.yml 2017-11-20 18:21:19.000000000 +0100
@@ -23,4 +23,4 @@
Test::More: '0'
resources:
repository: https://github.com/makamaka/JSON
-version: '2.94'
+version: '2.97000'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/lib/JSON/backportPP/Boolean.pm
new/JSON-2.97000/lib/JSON/backportPP/Boolean.pm
--- old/JSON-2.94/lib/JSON/backportPP/Boolean.pm 2017-05-29
07:23:22.000000000 +0200
+++ new/JSON-2.97000/lib/JSON/backportPP/Boolean.pm 2017-11-20
18:16:47.000000000 +0100
@@ -9,7 +9,7 @@
fallback => 1,
);
-$JSON::backportPP::Boolean::VERSION = '2.94';
+$JSON::backportPP::Boolean::VERSION = '2.97000';
1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/lib/JSON/backportPP.pm
new/JSON-2.97000/lib/JSON/backportPP.pm
--- old/JSON-2.94/lib/JSON/backportPP.pm 2017-05-29 07:23:22.000000000
+0200
+++ new/JSON-2.97000/lib/JSON/backportPP.pm 2017-11-20 18:16:47.000000000
+0100
@@ -15,7 +15,7 @@
use Carp ();
#use Devel::Peek;
-$JSON::backportPP::VERSION = '2.94';
+$JSON::backportPP::VERSION = '2.97000';
@JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
@@ -1407,7 +1407,7 @@
$JSON::PP::true = do { bless \(my $dummy = 1), "JSON::PP::Boolean" };
$JSON::PP::false = do { bless \(my $dummy = 0), "JSON::PP::Boolean" };
-sub is_bool { defined $_[0] and UNIVERSAL::isa($_[0], "JSON::PP::Boolean"); }
+sub is_bool { blessed $_[0] and $_[0]->isa("JSON::PP::Boolean"); }
sub true { $JSON::PP::true }
sub false { $JSON::PP::false }
@@ -1657,7 +1657,7 @@
=head1 VERSION
- 2.91_04
+ 2.97000
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/lib/JSON.pm new/JSON-2.97000/lib/JSON.pm
--- old/JSON-2.94/lib/JSON.pm 2017-05-29 07:41:34.000000000 +0200
+++ new/JSON-2.97000/lib/JSON.pm 2017-11-20 18:17:16.000000000 +0100
@@ -9,7 +9,7 @@
@JSON::EXPORT = qw(from_json to_json jsonToObj objToJson encode_json
decode_json);
BEGIN {
- $JSON::VERSION = '2.94';
+ $JSON::VERSION = '2.97000';
$JSON::DEBUG = 0 unless (defined $JSON::DEBUG);
$JSON::DEBUG = $ENV{ PERL_JSON_DEBUG } if exists $ENV{ PERL_JSON_DEBUG };
}
@@ -464,7 +464,7 @@
=head1 VERSION
- 2.93
+ 2.97000
=head1 DESCRIPTION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/00_backend_version.t
new/JSON-2.97000/t/00_backend_version.t
--- old/JSON-2.94/t/00_backend_version.t 1970-01-01 01:00:00.000000000
+0100
+++ new/JSON-2.97000/t/00_backend_version.t 2016-12-03 09:53:44.000000000
+0100
@@ -0,0 +1,7 @@
+use Test::More tests => 1;
+use strict;
+BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
+
+use JSON;
+diag ($JSON::BackendModule.' '.$JSON::BackendModule->VERSION);
+ok 1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/00_load_backport_pp.t
new/JSON-2.97000/t/00_load_backport_pp.t
--- old/JSON-2.94/t/00_load_backport_pp.t 2016-10-15 08:34:02.000000000
+0200
+++ new/JSON-2.97000/t/00_load_backport_pp.t 2017-11-19 19:31:58.000000000
+0100
@@ -11,5 +11,5 @@
ok( exists $INC{ 'JSON/backportPP.pm' }, 'load backportPP' );
ok( ! exists $INC{ 'JSON/PP.pm' }, q/didn't load PP/ );
-isa_ok( JSON->backend, 'JSON::PP' );
+ok( JSON->backend->isa('JSON::PP') );
ok( JSON->backend->is_pp );
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/03_types.t new/JSON-2.97000/t/03_types.t
--- old/JSON-2.94/t/03_types.t 2017-05-29 07:20:20.000000000 +0200
+++ new/JSON-2.97000/t/03_types.t 2017-11-20 18:16:47.000000000 +0100
@@ -2,7 +2,7 @@
use strict;
use Test::More;
-BEGIN { plan tests => 76 };
+BEGIN { plan tests => 78 };
BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
@@ -21,6 +21,8 @@
ok (JSON::is_bool $false);
ok (++$false == 1);
ok (!JSON::is_bool $false);
+ok (!JSON::is_bool "JSON::Boolean");
+ok (!JSON::is_bool {}); # GH-34
ok (JSON->new->allow_nonref (1)->decode ('5') == 5);
ok (JSON->new->allow_nonref (1)->decode ('-5') == -5);
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/07_pc_esc.t
new/JSON-2.97000/t/07_pc_esc.t
--- old/JSON-2.94/t/07_pc_esc.t 2017-05-29 07:23:17.000000000 +0200
+++ new/JSON-2.97000/t/07_pc_esc.t 2017-11-20 18:16:47.000000000 +0100
@@ -1,97 +1,97 @@
-#
-# このファイルのエンコーディングはUTF-8
-#
-
-# copied over from JSON::PC and modified to use JSON
-# copied over from JSON::XS and modified to use JSON
-
-use Test::More;
-use strict;
-
-BEGIN { plan tests => 18 };
-
-BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
-
-BEGIN {
- use lib qw(t);
- use _unicode_handling;
-}
-
-
-use utf8;
-use JSON;
-
-#########################
-my ($js,$obj,$str);
-
-my $pc = new JSON;
-
-$obj = {test => qq|abc"def|};
-$str = $pc->encode($obj);
-is($str,q|{"test":"abc\"def"}|);
-
-$obj = {qq|te"st| => qq|abc"def|};
-$str = $pc->encode($obj);
-is($str,q|{"te\"st":"abc\"def"}|);
-
-$obj = {test => qq|abc/def|}; # / => \/
-$str = $pc->encode($obj); # but since version 0.99
-is($str,q|{"test":"abc/def"}|); # this handling is deleted.
-$obj = $pc->decode($str);
-is($obj->{test},q|abc/def|);
-
-$obj = {test => q|abc\def|};
-$str = $pc->encode($obj);
-is($str,q|{"test":"abc\\\\def"}|);
-
-$obj = {test => "abc\bdef"};
-$str = $pc->encode($obj);
-is($str,q|{"test":"abc\bdef"}|);
-
-$obj = {test => "abc\fdef"};
-$str = $pc->encode($obj);
-is($str,q|{"test":"abc\fdef"}|);
-
-$obj = {test => "abc\ndef"};
-$str = $pc->encode($obj);
-is($str,q|{"test":"abc\ndef"}|);
-
-$obj = {test => "abc\rdef"};
-$str = $pc->encode($obj);
-is($str,q|{"test":"abc\rdef"}|);
-
-$obj = {test => "abc-def"};
-$str = $pc->encode($obj);
-is($str,q|{"test":"abc-def"}|);
-
-$obj = {test => "abc(def"};
-$str = $pc->encode($obj);
-is($str,q|{"test":"abc(def"}|);
-
-$obj = {test => "abc\\def"};
-$str = $pc->encode($obj);
-is($str,q|{"test":"abc\\\\def"}|);
-
-
-$obj = {test => "あいうえお"};
-$str = $pc->encode($obj);
-is($str,q|{"test":"あいうえお"}|);
-
-$obj = {"あいうえお" => "かきくけこ"};
-$str = $pc->encode($obj);
-is($str,q|{"あいうえお":"かきくけこ"}|);
-
-
-$obj = $pc->decode(q|{"id":"abc\ndef"}|);
-is($obj->{id},"abc\ndef",q|{"id":"abc\ndef"}|);
-
-$obj = $pc->decode(q|{"id":"abc\\\ndef"}|);
-is($obj->{id},"abc\\ndef",q|{"id":"abc\\\ndef"}|);
-
-$obj = $pc->decode(q|{"id":"abc\\\\\ndef"}|);
-is($obj->{id},"abc\\\ndef",q|{"id":"abc\\\\\ndef"}|);
-
-$obj = {test => "\'I said\', \"She said\""};
-$str = $pc->encode($obj);
-is($str,q|{"test":"'I said', \"She said\""}|);
-
+#
+# このファイルのエンコーディングはUTF-8
+#
+
+# copied over from JSON::PC and modified to use JSON
+# copied over from JSON::XS and modified to use JSON
+
+use Test::More;
+use strict;
+
+BEGIN { plan tests => 18 };
+
+BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
+
+BEGIN {
+ use lib qw(t);
+ use _unicode_handling;
+}
+
+
+use utf8;
+use JSON;
+
+#########################
+my ($js,$obj,$str);
+
+my $pc = new JSON;
+
+$obj = {test => qq|abc"def|};
+$str = $pc->encode($obj);
+is($str,q|{"test":"abc\"def"}|);
+
+$obj = {qq|te"st| => qq|abc"def|};
+$str = $pc->encode($obj);
+is($str,q|{"te\"st":"abc\"def"}|);
+
+$obj = {test => qq|abc/def|}; # / => \/
+$str = $pc->encode($obj); # but since version 0.99
+is($str,q|{"test":"abc/def"}|); # this handling is deleted.
+$obj = $pc->decode($str);
+is($obj->{test},q|abc/def|);
+
+$obj = {test => q|abc\def|};
+$str = $pc->encode($obj);
+is($str,q|{"test":"abc\\\\def"}|);
+
+$obj = {test => "abc\bdef"};
+$str = $pc->encode($obj);
+is($str,q|{"test":"abc\bdef"}|);
+
+$obj = {test => "abc\fdef"};
+$str = $pc->encode($obj);
+is($str,q|{"test":"abc\fdef"}|);
+
+$obj = {test => "abc\ndef"};
+$str = $pc->encode($obj);
+is($str,q|{"test":"abc\ndef"}|);
+
+$obj = {test => "abc\rdef"};
+$str = $pc->encode($obj);
+is($str,q|{"test":"abc\rdef"}|);
+
+$obj = {test => "abc-def"};
+$str = $pc->encode($obj);
+is($str,q|{"test":"abc-def"}|);
+
+$obj = {test => "abc(def"};
+$str = $pc->encode($obj);
+is($str,q|{"test":"abc(def"}|);
+
+$obj = {test => "abc\\def"};
+$str = $pc->encode($obj);
+is($str,q|{"test":"abc\\\\def"}|);
+
+
+$obj = {test => "あいうえお"};
+$str = $pc->encode($obj);
+is($str,q|{"test":"あいうえお"}|);
+
+$obj = {"あいうえお" => "かきくけこ"};
+$str = $pc->encode($obj);
+is($str,q|{"あいうえお":"かきくけこ"}|);
+
+
+$obj = $pc->decode(q|{"id":"abc\ndef"}|);
+is($obj->{id},"abc\ndef",q|{"id":"abc\ndef"}|);
+
+$obj = $pc->decode(q|{"id":"abc\\\ndef"}|);
+is($obj->{id},"abc\\ndef",q|{"id":"abc\\\ndef"}|);
+
+$obj = $pc->decode(q|{"id":"abc\\\\\ndef"}|);
+is($obj->{id},"abc\\\ndef",q|{"id":"abc\\\\\ndef"}|);
+
+$obj = {test => "\'I said\', \"She said\""};
+$str = $pc->encode($obj);
+is($str,q|{"test":"'I said', \"She said\""}|);
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/105_esc_slash.t
new/JSON-2.97000/t/105_esc_slash.t
--- old/JSON-2.94/t/105_esc_slash.t 2017-05-29 07:23:17.000000000 +0200
+++ new/JSON-2.97000/t/105_esc_slash.t 2017-11-20 18:16:47.000000000 +0100
@@ -1,15 +1,15 @@
-
-use Test::More;
-use strict;
-BEGIN { plan tests => 2 };
-BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
-use JSON -support_by_pp;
-#########################
-
-my $json = JSON->new->allow_nonref;
-
-my $js = '/';
-
-is($json->encode($js), '"/"');
-is($json->escape_slash->encode($js), '"\/"');
-
+
+use Test::More;
+use strict;
+BEGIN { plan tests => 2 };
+BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
+use JSON -support_by_pp;
+#########################
+
+my $json = JSON->new->allow_nonref;
+
+my $js = '/';
+
+is($json->encode($js), '"/"');
+is($json->escape_slash->encode($js), '"\/"');
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/106_allow_barekey.t
new/JSON-2.97000/t/106_allow_barekey.t
--- old/JSON-2.94/t/106_allow_barekey.t 2017-05-29 07:23:17.000000000 +0200
+++ new/JSON-2.97000/t/106_allow_barekey.t 2017-11-20 18:16:47.000000000
+0100
@@ -1,19 +1,19 @@
-
-use Test::More;
-use strict;
-BEGIN { plan tests => 2 };
-BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
-use JSON -support_by_pp;
-#########################
-
-my $json = JSON->new->allow_nonref;
-
-eval q| $json->decode('{foo:"bar"}') |;
-
-ok($@); # in XS and PP, the error message differs.
-
-$json->allow_barekey;
-
-is($json->decode('{foo:"bar"}')->{foo}, 'bar');
-
-
+
+use Test::More;
+use strict;
+BEGIN { plan tests => 2 };
+BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
+use JSON -support_by_pp;
+#########################
+
+my $json = JSON->new->allow_nonref;
+
+eval q| $json->decode('{foo:"bar"}') |;
+
+ok($@); # in XS and PP, the error message differs.
+
+$json->allow_barekey;
+
+is($json->decode('{foo:"bar"}')->{foo}, 'bar');
+
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/107_allow_singlequote.t
new/JSON-2.97000/t/107_allow_singlequote.t
--- old/JSON-2.94/t/107_allow_singlequote.t 2017-05-29 07:23:17.000000000
+0200
+++ new/JSON-2.97000/t/107_allow_singlequote.t 2017-11-20 18:16:47.000000000
+0100
@@ -1,20 +1,20 @@
-
-use Test::More;
-use strict;
-BEGIN { plan tests => 4 };
-BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
-use JSON -support_by_pp;
-#########################
-
-my $json = JSON->new->allow_nonref;
-
-eval q| $json->decode("{'foo':'bar'}") |;
-
-ok($@); # in XS and PP, the error message differs.
-
-$json->allow_singlequote;
-
-is($json->decode(q|{'foo':"bar"}|)->{foo}, 'bar');
-is($json->decode(q|{'foo':'bar'}|)->{foo}, 'bar');
-is($json->allow_barekey->decode(q|{foo:'bar'}|)->{foo}, 'bar');
-
+
+use Test::More;
+use strict;
+BEGIN { plan tests => 4 };
+BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; }
+use JSON -support_by_pp;
+#########################
+
+my $json = JSON->new->allow_nonref;
+
+eval q| $json->decode("{'foo':'bar'}") |;
+
+ok($@); # in XS and PP, the error message differs.
+
+$json->allow_singlequote;
+
+is($json->decode(q|{'foo':"bar"}|)->{foo}, 'bar');
+is($json->decode(q|{'foo':'bar'}|)->{foo}, 'bar');
+is($json->allow_barekey->decode(q|{foo:'bar'}|)->{foo}, 'bar');
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/110_bignum.t
new/JSON-2.97000/t/110_bignum.t
--- old/JSON-2.94/t/110_bignum.t 2017-05-29 07:23:22.000000000 +0200
+++ new/JSON-2.97000/t/110_bignum.t 2017-11-20 18:16:47.000000000 +0100
@@ -27,7 +27,7 @@
my $num = $json->decode(q|100000000000000000000000000000000000000|);
-isa_ok($num, 'Math::BigInt');
+ok($num->isa('Math::BigInt'));
is("$num", $fix . '100000000000000000000000000000000000000');
is($json->encode($num), $fix . '100000000000000000000000000000000000000');
@@ -40,7 +40,7 @@
$num = $json->decode(q|2.0000000000000000001|);
-isa_ok($num, 'Math::BigFloat');
+ok($num->isa('Math::BigFloat'));
is("$num", '2.0000000000000000001');
is($json->encode($num), '2.0000000000000000001');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/_unicode_handling.pm
new/JSON-2.97000/t/_unicode_handling.pm
--- old/JSON-2.94/t/_unicode_handling.pm 2017-05-29 07:23:17.000000000
+0200
+++ new/JSON-2.97000/t/_unicode_handling.pm 2017-11-20 18:16:47.000000000
+0100
@@ -1,28 +1,28 @@
-#package utf8;
-package _unicode_handling;
-
-# this is a dummy pragma for 5.005.
-
- if ($] < 5.006) {
- $INC{'utf8.pm'} = './utf8.pm';
-
- eval q|
- sub utf8::import { }
- sub utf8::unimport { }
- |;
-
- $JSON::can_handle_UTF16_and_utf8 = 0;
- }
- else {
- $JSON::can_handle_UTF16_and_utf8 = 1;
-
- if ($] > 5.007 and $] < 5.008003) {
-# $JSON::can_handle_UTF16_and_utf8 = 0;
- }
-
- }
-
-
-
-
-1;
+#package utf8;
+package _unicode_handling;
+
+# this is a dummy pragma for 5.005.
+
+ if ($] < 5.006) {
+ $INC{'utf8.pm'} = './utf8.pm';
+
+ eval q|
+ sub utf8::import { }
+ sub utf8::unimport { }
+ |;
+
+ $JSON::can_handle_UTF16_and_utf8 = 0;
+ }
+ else {
+ $JSON::can_handle_UTF16_and_utf8 = 1;
+
+ if ($] > 5.007 and $] < 5.008003) {
+# $JSON::can_handle_UTF16_and_utf8 = 0;
+ }
+
+ }
+
+
+
+
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/JSON-2.94/t/e02_bool.t new/JSON-2.97000/t/e02_bool.t
--- old/JSON-2.94/t/e02_bool.t 2016-12-03 06:45:34.000000000 +0100
+++ new/JSON-2.97000/t/e02_bool.t 2017-11-19 19:31:58.000000000 +0100
@@ -11,7 +11,7 @@
my $json = new JSON;
-note $json->backend->isa('JSON::PP');
+diag $json->backend->isa('JSON::PP');
my $not_not_a_number_is_a_number = (
$json->backend->isa('Cpanel::JSON::XS') ||
($json->backend->isa('JSON::PP') && ($JSON::PP::Boolean::VERSION ||
$JSON::backportPP::Boolean::VERSION))
