Update JSON-PP from 4.04 to 4.05

43 files changed, 71 insertions, 19 deletions

diff --git a/cpan/JSON-PP/lib/JSON/PP.pm b/cpan/JSON-PP/lib/JSON/PP.pm
index 9f08354285..0507921463 100644
--- a/cpan/JSON-PP/lib/JSON/PP.pm
+++ b/cpan/JSON-PP/lib/JSON/PP.pm
@@ -14,7 +14,7 @@ use JSON::PP::Boolean;
 use Carp ();
 #use Devel::Peek;
 
-$JSON::PP::VERSION = '4.04';
+$JSON::PP::VERSION = '4.05';
 
 @JSON::PP::EXPORT = qw(encode_json decode_json from_json to_json);
 
@@ -1773,7 +1773,7 @@ JSON::PP - JSON::XS compatible pure-Perl module.
 
 =head1 VERSION
 
-    4.04
+    4.05
 
 =head1 DESCRIPTION
 
diff --git a/cpan/JSON-PP/lib/JSON/PP/Boolean.pm b/cpan/JSON-PP/lib/JSON/PP/Boolean.pm
index 8ef6949daf..5d5b17c236 100644
--- a/cpan/JSON-PP/lib/JSON/PP/Boolean.pm
+++ b/cpan/JSON-PP/lib/JSON/PP/Boolean.pm
@@ -10,7 +10,7 @@ overload::import('overload',
     fallback => 1,
 );
 
-$JSON::PP::Boolean::VERSION = '4.04';
+$JSON::PP::Boolean::VERSION = '4.05';
 
 1;
 
diff --git a/cpan/JSON-PP/t/000_load.t b/cpan/JSON-PP/t/000_load.t
index aa238dcf5d..112b47b012 100644
--- a/cpan/JSON-PP/t/000_load.t
+++ b/cpan/JSON-PP/t/000_load.t
@@ -1,5 +1,9 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
+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} = 0; }
diff --git a/cpan/JSON-PP/t/001_utf8.t b/cpan/JSON-PP/t/001_utf8.t
index 95dff597c0..e160f82416 100644
--- a/cpan/JSON-PP/t/001_utf8.t
+++ b/cpan/JSON-PP/t/001_utf8.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 9 };
 
diff --git a/cpan/JSON-PP/t/002_error.t b/cpan/JSON-PP/t/002_error.t
index 8d0765d181..ae7b7739f4 100644
--- a/cpan/JSON-PP/t/002_error.t
+++ b/cpan/JSON-PP/t/002_error.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 35 };
 
diff --git a/cpan/JSON-PP/t/003_types.t b/cpan/JSON-PP/t/003_types.t
index edf2990c84..11a73e2d14 100644
--- a/cpan/JSON-PP/t/003_types.t
+++ b/cpan/JSON-PP/t/003_types.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 76 + 2 };
 
diff --git a/cpan/JSON-PP/t/004_dwiw_encode.t b/cpan/JSON-PP/t/004_dwiw_encode.t
index a3329470fc..32e4500fee 100644
--- a/cpan/JSON-PP/t/004_dwiw_encode.t
+++ b/cpan/JSON-PP/t/004_dwiw_encode.t
@@ -6,6 +6,7 @@
 # Authors: don
 
 use strict;
+use warnings;
 use Test;
 
 # main
diff --git a/cpan/JSON-PP/t/006_pc_pretty.t b/cpan/JSON-PP/t/006_pc_pretty.t
index 582f882dd6..c8a5a0a948 100644
--- a/cpan/JSON-PP/t/006_pc_pretty.t
+++ b/cpan/JSON-PP/t/006_pc_pretty.t
@@ -2,6 +2,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 9 };
 
@@ -10,7 +11,7 @@ BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 use JSON::PP;
 
 my ($js,$obj,$json);
-my $pc = new JSON::PP;
+my $pc = JSON::PP->new;
 
 $obj = {foo => "bar"};
 $js = $pc->encode($obj);
diff --git a/cpan/JSON-PP/t/007_pc_esc.t b/cpan/JSON-PP/t/007_pc_esc.t
index cbe6cd674f..32fe808348 100644
--- a/cpan/JSON-PP/t/007_pc_esc.t
+++ b/cpan/JSON-PP/t/007_pc_esc.t
@@ -7,6 +7,7 @@
 
 use Test::More;
 use strict;
+use warnings;
 use utf8;
 BEGIN { plan tests => 17 };
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
@@ -16,7 +17,7 @@ use JSON::PP;
 #########################
 my ($js,$obj,$str);
 
-my $pc = new JSON::PP;
+my $pc = JSON::PP->new;
 
 $obj = {test => qq|abc"def|};
 $str = $pc->encode($obj);
diff --git a/cpan/JSON-PP/t/008_pc_base.t b/cpan/JSON-PP/t/008_pc_base.t
index d8dc46d779..762edfd965 100644
--- a/cpan/JSON-PP/t/008_pc_base.t
+++ b/cpan/JSON-PP/t/008_pc_base.t
@@ -4,6 +4,7 @@ use Test::More;
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 BEGIN { plan tests => 20 };
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 
@@ -11,7 +12,7 @@ use JSON::PP;
 
 my ($js,$obj);
 
-my $pc = new JSON::PP;
+my $pc = JSON::PP->new;
 
 $js  = q|{}|;
 
diff --git a/cpan/JSON-PP/t/009_pc_extra_number.t b/cpan/JSON-PP/t/009_pc_extra_number.t
index 1712064cb8..d062f033e1 100644
--- a/cpan/JSON-PP/t/009_pc_extra_number.t
+++ b/cpan/JSON-PP/t/009_pc_extra_number.t
@@ -3,6 +3,7 @@
 
 use Test::More;
 use strict;
+use warnings;
 BEGIN { plan tests => 6 };
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 
@@ -11,7 +12,7 @@ use utf8;
 
 #########################
 my ($js,$obj);
-my $pc = new JSON::PP;
+my $pc = JSON::PP->new;
 
 $js  = '{"foo":0}';
 $obj = $pc->decode($js);
diff --git a/cpan/JSON-PP/t/010_pc_keysort.t b/cpan/JSON-PP/t/010_pc_keysort.t
index cec6fe1936..2dba56933a 100644
--- a/cpan/JSON-PP/t/010_pc_keysort.t
+++ b/cpan/JSON-PP/t/010_pc_keysort.t
@@ -3,6 +3,7 @@
 
 use Test::More;
 use strict;
+use warnings;
 BEGIN { plan tests => 1 };
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 
diff --git a/cpan/JSON-PP/t/011_pc_expo.t b/cpan/JSON-PP/t/011_pc_expo.t
index 3167ef977c..443b0d88bc 100644
--- a/cpan/JSON-PP/t/011_pc_expo.t
+++ b/cpan/JSON-PP/t/011_pc_expo.t
@@ -3,6 +3,7 @@
 
 use Test::More;
 use strict;
+use warnings;
 BEGIN { plan tests => 8 + 2 };
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 
@@ -10,7 +11,7 @@ use JSON::PP;
 
 #########################
 my ($js,$obj);
-my $pc = new JSON::PP;
+my $pc = JSON::PP->new;
 
 $js  = q|[-12.34]|;
 $obj = $pc->decode($js);
diff --git a/cpan/JSON-PP/t/012_blessed.t b/cpan/JSON-PP/t/012_blessed.t
index 9329eb8b66..51f855833d 100644
--- a/cpan/JSON-PP/t/012_blessed.t
+++ b/cpan/JSON-PP/t/012_blessed.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 16 };
 
diff --git a/cpan/JSON-PP/t/013_limit.t b/cpan/JSON-PP/t/013_limit.t
index 178a12618a..6aee693b42 100644
--- a/cpan/JSON-PP/t/013_limit.t
+++ b/cpan/JSON-PP/t/013_limit.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 11 };
 
diff --git a/cpan/JSON-PP/t/014_latin1.t b/cpan/JSON-PP/t/014_latin1.t
index 30692193f0..7030db8637 100644
--- a/cpan/JSON-PP/t/014_latin1.t
+++ b/cpan/JSON-PP/t/014_latin1.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 4 };
 
diff --git a/cpan/JSON-PP/t/015_prefix.t b/cpan/JSON-PP/t/015_prefix.t
index d4e8b37859..df4f1b8a95 100644
--- a/cpan/JSON-PP/t/015_prefix.t
+++ b/cpan/JSON-PP/t/015_prefix.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 4 };
 
diff --git a/cpan/JSON-PP/t/016_tied.t b/cpan/JSON-PP/t/016_tied.t
index 63d912e662..05613971f4 100644
--- a/cpan/JSON-PP/t/016_tied.t
+++ b/cpan/JSON-PP/t/016_tied.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 2 };
 
diff --git a/cpan/JSON-PP/t/017_relaxed.t b/cpan/JSON-PP/t/017_relaxed.t
index 34fb60ead5..a49a3b4b1a 100644
--- a/cpan/JSON-PP/t/017_relaxed.t
+++ b/cpan/JSON-PP/t/017_relaxed.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 8 };
 
diff --git a/cpan/JSON-PP/t/019_incr.t b/cpan/JSON-PP/t/019_incr.t
index 4e339823d1..e8d9c26a57 100644
--- a/cpan/JSON-PP/t/019_incr.t
+++ b/cpan/JSON-PP/t/019_incr.t
@@ -45,7 +45,7 @@ splitter +JSON::PP->new                  , ' 0.00E+00 ';
 
 {
    my $text = '[5],{"":1} , [ 1,2, 3], {"3":null}';
-   my $coder = new JSON::PP;
+   my $coder = JSON::PP->new;
    for (0 .. length $text) {
       my $a = substr $text, 0, $_;
       my $b = substr $text, $_;
@@ -69,7 +69,7 @@ splitter +JSON::PP->new                  , ' 0.00E+00 ';
 
 {
    my $text = '[x][5]';
-   my $coder = new JSON::PP;
+   my $coder = JSON::PP->new;
    $coder->incr_parse ($text);
    ok (!eval { $coder->incr_parse }, "sparse1");
    ok (!eval { $coder->incr_parse }, "sparse2");
diff --git a/cpan/JSON-PP/t/020_unknown.t b/cpan/JSON-PP/t/020_unknown.t
index 98e9528f7f..6ab5b79040 100644
--- a/cpan/JSON-PP/t/020_unknown.t
+++ b/cpan/JSON-PP/t/020_unknown.t
@@ -1,11 +1,10 @@
 use strict;
+use warnings;
 
 use Test::More;
 BEGIN { plan tests => 10 };
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 
-
-use strict;
 use JSON::PP;
 
 my $json = JSON::PP->new;
diff --git a/cpan/JSON-PP/t/021_evans.t b/cpan/JSON-PP/t/021_evans.t
index 655f6fc2fe..723d8e25b5 100644
--- a/cpan/JSON-PP/t/021_evans.t
+++ b/cpan/JSON-PP/t/021_evans.t
@@ -14,7 +14,7 @@ print "1..1\n";
 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::PP->new->encode ($data);
-my $j = new JSON::PP;
+my $j = JSON::PP->new;
 my $object = $j->incr_parse ($js);
 
 die "no object" if !$object;
diff --git a/cpan/JSON-PP/t/052_object.t b/cpan/JSON-PP/t/052_object.t
index 020db32cbb..9b478f9d4c 100644
--- a/cpan/JSON-PP/t/052_object.t
+++ b/cpan/JSON-PP/t/052_object.t
@@ -1,6 +1,17 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
+package JSON::PP::freeze;
+
+1;
+
+package JSON::PP::tojson;
+
+1;
+
+package main;
+
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 20 };
 BEGIN { $^W = 0 } # hate
@@ -47,8 +58,8 @@ sub JSON::PP::freeze::THAW {
    777
 }
 
-my $obj = bless { k => 1 }, JSON::PP::freeze::;
-my $enc = $json->encode ($obj);
+$obj = bless { k => 1 }, JSON::PP::freeze::;
+$enc = $json->encode ($obj);
 ok ($enc eq '("JSON::PP::freeze")[3,1,2]');
 
 my $dec = $json->decode ($enc);
diff --git a/cpan/JSON-PP/t/099_binary.t b/cpan/JSON-PP/t/099_binary.t
index 2daa5b6469..a1bce5d2f9 100644
--- a/cpan/JSON-PP/t/099_binary.t
+++ b/cpan/JSON-PP/t/099_binary.t
@@ -1,6 +1,7 @@
 # copied over from JSON::XS and modified to use JSON::PP
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 24576 };
 
diff --git a/cpan/JSON-PP/t/104_sortby.t b/cpan/JSON-PP/t/104_sortby.t
index 649d7bda8e..1188e97f01 100644
--- a/cpan/JSON-PP/t/104_sortby.t
+++ b/cpan/JSON-PP/t/104_sortby.t
@@ -1,6 +1,7 @@
 
 use Test::More;
 use strict;
+use warnings;
 BEGIN { plan tests => 3 };
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 use JSON::PP;
diff --git a/cpan/JSON-PP/t/105_esc_slash.t b/cpan/JSON-PP/t/105_esc_slash.t
index 225186b88b..56f415cf02 100644
--- a/cpan/JSON-PP/t/105_esc_slash.t
+++ b/cpan/JSON-PP/t/105_esc_slash.t
@@ -1,6 +1,7 @@
 

 use Test::More;

-use strict;

+use strict;
+use warnings;

 BEGIN { plan tests => 2 };

 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }

 use JSON::PP;

diff --git a/cpan/JSON-PP/t/106_allow_barekey.t b/cpan/JSON-PP/t/106_allow_barekey.t
index 85d3035758..20918bbdc2 100644
--- a/cpan/JSON-PP/t/106_allow_barekey.t
+++ b/cpan/JSON-PP/t/106_allow_barekey.t
@@ -1,6 +1,7 @@
 

 use Test::More;

-use strict;

+use strict;
+use warnings;

 BEGIN { plan tests => 2 };

 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }

 use JSON::PP;

diff --git a/cpan/JSON-PP/t/107_allow_singlequote.t b/cpan/JSON-PP/t/107_allow_singlequote.t
index 217caba5a9..b3462f9775 100644
--- a/cpan/JSON-PP/t/107_allow_singlequote.t
+++ b/cpan/JSON-PP/t/107_allow_singlequote.t
@@ -1,6 +1,7 @@
 

 use Test::More;

-use strict;

+use strict;
+use warnings;

 BEGIN { plan tests => 4 };

 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }

 use JSON::PP;

diff --git a/cpan/JSON-PP/t/108_decode.t b/cpan/JSON-PP/t/108_decode.t
index 438aeeed32..e0cec29015 100644
--- a/cpan/JSON-PP/t/108_decode.t
+++ b/cpan/JSON-PP/t/108_decode.t
@@ -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 --git a/cpan/JSON-PP/t/109_encode.t b/cpan/JSON-PP/t/109_encode.t
index ce7f5104bc..95f7764ff2 100644
--- a/cpan/JSON-PP/t/109_encode.t
+++ b/cpan/JSON-PP/t/109_encode.t
@@ -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 --git a/cpan/JSON-PP/t/110_bignum.t b/cpan/JSON-PP/t/110_bignum.t
index c4c282f437..99305ddb68 100644
--- a/cpan/JSON-PP/t/110_bignum.t
+++ b/cpan/JSON-PP/t/110_bignum.t
@@ -1,5 +1,6 @@
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 9 };
 
@@ -20,7 +21,7 @@ my $fix =  !$v       ? '+'
           : '';
 
 
-my $json = new JSON::PP;
+my $json = JSON::PP->new;
 
 $json->allow_nonref->allow_bignum(1);
 $json->convert_blessed->allow_blessed;
diff --git a/cpan/JSON-PP/t/112_upgrade.t b/cpan/JSON-PP/t/112_upgrade.t
index 1e319dc56c..853439a174 100644
--- a/cpan/JSON-PP/t/112_upgrade.t
+++ b/cpan/JSON-PP/t/112_upgrade.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Test::More;
 
 BEGIN { plan tests => 3 };
diff --git a/cpan/JSON-PP/t/113_overloaded_eq.t b/cpan/JSON-PP/t/113_overloaded_eq.t
index 1b61c48fb2..d4f7027bd4 100644
--- a/cpan/JSON-PP/t/113_overloaded_eq.t
+++ b/cpan/JSON-PP/t/113_overloaded_eq.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Test::More tests => 4;
 
 BEGIN {
@@ -26,6 +27,7 @@ ok(!$@);
 package Foo;
 
 use strict;
+use warnings;
 use overload (
     'eq' => sub { 0 },
     '""' => sub { $_[0] },
@@ -39,6 +41,7 @@ sub TO_JSON {
 package Bar;
 
 use strict;
+use warnings;
 use overload (
     'eq' => sub { 0 },
     '""' => sub { $_[0] },
diff --git a/cpan/JSON-PP/t/114_decode_prefix.t b/cpan/JSON-PP/t/114_decode_prefix.t
index 10048d3acc..2b3dfa7fcc 100644
--- a/cpan/JSON-PP/t/114_decode_prefix.t
+++ b/cpan/JSON-PP/t/114_decode_prefix.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Test::More tests => 8;
 
 BEGIN {
diff --git a/cpan/JSON-PP/t/115_tie_ixhash.t b/cpan/JSON-PP/t/115_tie_ixhash.t
index 51b3a4f79b..a8bed21488 100644
--- a/cpan/JSON-PP/t/115_tie_ixhash.t
+++ b/cpan/JSON-PP/t/115_tie_ixhash.t
@@ -1,5 +1,6 @@
 
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 2 };
 
diff --git a/cpan/JSON-PP/t/116_incr_parse_fixed.t b/cpan/JSON-PP/t/116_incr_parse_fixed.t
index c00f023e21..6ad5d5c5a2 100644
--- a/cpan/JSON-PP/t/116_incr_parse_fixed.t
+++ b/cpan/JSON-PP/t/116_incr_parse_fixed.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Test::More tests => 4;
 
 use JSON::PP;
diff --git a/cpan/JSON-PP/t/117_numbers.t b/cpan/JSON-PP/t/117_numbers.t
index a9d3df810d..bd80f51510 100644
--- a/cpan/JSON-PP/t/117_numbers.t
+++ b/cpan/JSON-PP/t/117_numbers.t
@@ -1,5 +1,6 @@
 use Test::More;
 use strict;
+use warnings;
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 BEGIN { $ENV{PERL_JSON_PP_USE_B} = 0 }
 use JSON::PP;
diff --git a/cpan/JSON-PP/t/118_boolean_values.t b/cpan/JSON-PP/t/118_boolean_values.t
index 1a5d175254..5a2c2b32b7 100644
--- a/cpan/JSON-PP/t/118_boolean_values.t
+++ b/cpan/JSON-PP/t/118_boolean_values.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Test::More;
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 use JSON::PP;
diff --git a/cpan/JSON-PP/t/gh_28_json_test_suite.t b/cpan/JSON-PP/t/gh_28_json_test_suite.t
index be53660381..ffbe2942df 100644
--- a/cpan/JSON-PP/t/gh_28_json_test_suite.t
+++ b/cpan/JSON-PP/t/gh_28_json_test_suite.t
@@ -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 --git a/cpan/JSON-PP/t/gh_29_trailing_false_value.t b/cpan/JSON-PP/t/gh_29_trailing_false_value.t
index bb408e9337..e569d29d87 100644
--- a/cpan/JSON-PP/t/gh_29_trailing_false_value.t
+++ b/cpan/JSON-PP/t/gh_29_trailing_false_value.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Test::More;
 
 BEGIN { plan tests => 1 };
diff --git a/cpan/JSON-PP/t/rt_116998_wrong_character_offset.t b/cpan/JSON-PP/t/rt_116998_wrong_character_offset.t
index b8f4707c73..e9b88c0dc4 100644
--- a/cpan/JSON-PP/t/rt_116998_wrong_character_offset.t
+++ b/cpan/JSON-PP/t/rt_116998_wrong_character_offset.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 4 };
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
diff --git a/cpan/JSON-PP/t/rt_90071_incr_parse.t b/cpan/JSON-PP/t/rt_90071_incr_parse.t
index dc1fd45cf7..cc07216f19 100644
--- a/cpan/JSON-PP/t/rt_90071_incr_parse.t
+++ b/cpan/JSON-PP/t/rt_90071_incr_parse.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Test::More;
 BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
 use JSON::PP;
diff --git a/cpan/JSON-PP/t/zero-mojibake.t b/cpan/JSON-PP/t/zero-mojibake.t
index 0ace37016c..8d5185ded3 100644
--- a/cpan/JSON-PP/t/zero-mojibake.t
+++ b/cpan/JSON-PP/t/zero-mojibake.t
@@ -1,4 +1,5 @@
 use strict;
+use warnings;
 use Test::More;
 BEGIN { plan tests => 1 };