From 80e2994434f3c840ce12546351ab9fd20cdd3aaa Mon Sep 17 00:00:00 2001 From: DongHun Kwak Date: Tue, 19 Jul 2022 16:23:48 +0900 Subject: Imported Upstream version 4.03 --- .travis.yml | 1 + Changes | 4 ++++ META.json | 6 +++--- META.yml | 6 +++--- lib/JSON.pm | 4 ++-- lib/JSON/backportPP.pm | 7 +++---- lib/JSON/backportPP/Boolean.pm | 2 +- t/00_load.t | 4 ++++ t/01_utf8.t | 1 + t/02_error.t | 1 + t/03_types.t | 1 + t/04_dwiw_encode.t | 1 + t/06_pc_pretty.t | 3 ++- t/07_pc_esc.t | 3 ++- t/08_pc_base.t | 3 ++- t/09_pc_extra_number.t | 3 ++- t/104_sortby.t | 1 + t/105_esc_slash.t | 3 ++- t/106_allow_barekey.t | 3 ++- t/107_allow_singlequote.t | 1 + t/108_decode.t | 1 + t/109_encode.t | 1 + t/10_pc_keysort.t | 1 + t/110_bignum.t | 3 ++- t/112_upgrade.t | 1 + t/113_overloaded_eq.t | 3 +++ t/114_decode_prefix.t | 1 + t/115_tie_ixhash.t | 1 + t/116_incr_parse_fixed.t | 1 + t/117_numbers.t | 1 + t/118_boolean_values.t | 9 ++++++--- t/11_pc_expo.t | 3 ++- t/12_blessed.t | 1 + t/13_limit.t | 1 + t/14_latin1.t | 1 + t/15_prefix.t | 1 + t/16_tied.t | 1 + t/17_relaxed.t | 1 + t/19_incr.t | 4 ++-- t/20_unknown.t | 3 +-- t/21_evans.t | 2 +- t/52_object.t | 15 +++++++++++++-- t/99_binary.t | 1 + t/gh_28_json_test_suite.t | 1 + t/gh_29_trailing_false_value.t | 1 + t/rt_116998_wrong_character_offset.t | 1 + t/rt_90071_incr_parse.t | 1 + t/zero-mojibake.t | 1 + 48 files changed, 89 insertions(+), 31 deletions(-) diff --git a/.travis.yml b/.travis.yml index a6870d4..3611047 100644 --- a/.travis.yml +++ b/.travis.yml @@ -1,3 +1,4 @@ +dist: trusty language: perl perl: - "5.8" diff --git a/Changes b/Changes index 405d344..cb65f77 100644 --- a/Changes +++ b/Changes @@ -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 --git a/META.json b/META.json index fec57bf..c6913a8 100644 --- a/META.json +++ b/META.json @@ -4,7 +4,7 @@ "Makamaka Hannyaharamitu, Emakamaka[at]cpan.orgE" ], "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 --git a/META.yml b/META.yml index fb7f055..b4bc9ba 100644 --- a/META.yml +++ b/META.yml @@ -7,7 +7,7 @@ build_requires: 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 @@ requires: 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 --git a/lib/JSON.pm b/lib/JSON.pm index d58fc6a..3e644cc 100644 --- a/lib/JSON.pm +++ b/lib/JSON.pm @@ -9,7 +9,7 @@ BEGIN { @JSON::ISA = 'Exporter' } @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 @@ This setting has currently no effect on tied hashes. $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 method can convert a diff --git a/lib/JSON/backportPP.pm b/lib/JSON/backportPP.pm index 6f9b949..3c9c392 100644 --- a/lib/JSON/backportPP.pm +++ b/lib/JSON/backportPP.pm @@ -15,7 +15,7 @@ use JSON::backportPP::Boolean; 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 @@ sub boolean_values { 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 @@ JSON::PP - JSON::XS compatible pure-Perl module. =head1 VERSION - 4.02 + 4.05 =head1 DESCRIPTION diff --git a/lib/JSON/backportPP/Boolean.pm b/lib/JSON/backportPP/Boolean.pm index 6bb7b8c..efccd61 100644 --- a/lib/JSON/backportPP/Boolean.pm +++ b/lib/JSON/backportPP/Boolean.pm @@ -11,7 +11,7 @@ overload::import('overload', fallback => 1, ); -$JSON::backportPP::Boolean::VERSION = '4.02'; +$JSON::backportPP::Boolean::VERSION = '4.06'; 1; diff --git a/t/00_load.t b/t/00_load.t index 4409ce1..3727faf 100644 --- a/t/00_load.t +++ b/t/00_load.t @@ -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 --git a/t/01_utf8.t b/t/01_utf8.t index dccefa5..b05ba66 100644 --- a/t/01_utf8.t +++ b/t/01_utf8.t @@ -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 --git a/t/02_error.t b/t/02_error.t index a362302..2c034bb 100644 --- a/t/02_error.t +++ b/t/02_error.t @@ -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 --git a/t/03_types.t b/t/03_types.t index 1d98332..1037a7c 100644 --- a/t/03_types.t +++ b/t/03_types.t @@ -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 --git a/t/04_dwiw_encode.t b/t/04_dwiw_encode.t index 14a30dd..b31cedd 100644 --- a/t/04_dwiw_encode.t +++ b/t/04_dwiw_encode.t @@ -6,6 +6,7 @@ # Authors: don use strict; +use warnings; use Test; # main diff --git a/t/06_pc_pretty.t b/t/06_pc_pretty.t index 333cc7a..a162b7d 100644 --- a/t/06_pc_pretty.t +++ b/t/06_pc_pretty.t @@ -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 @@ BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON; my ($js,$obj,$json); -my $pc = new JSON; +my $pc = JSON->new; $obj = {foo => "bar"}; $js = $pc->encode($obj); diff --git a/t/07_pc_esc.t b/t/07_pc_esc.t index 1bb080c..7fa3f8d 100644 --- a/t/07_pc_esc.t +++ b/t/07_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} ||= "JSON::backportPP"; } @@ -16,7 +17,7 @@ use JSON; ######################### my ($js,$obj,$str); -my $pc = new JSON; +my $pc = JSON->new; $obj = {test => qq|abc"def|}; $str = $pc->encode($obj); diff --git a/t/08_pc_base.t b/t/08_pc_base.t index f483ed2..1607569 100644 --- a/t/08_pc_base.t +++ b/t/08_pc_base.t @@ -4,6 +4,7 @@ use Test::More; # 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 @@ use JSON; my ($js,$obj); -my $pc = new JSON; +my $pc = JSON->new; $js = q|{}|; diff --git a/t/09_pc_extra_number.t b/t/09_pc_extra_number.t index 697786a..7d1748f 100644 --- a/t/09_pc_extra_number.t +++ b/t/09_pc_extra_number.t @@ -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 @@ use utf8; ######################### my ($js,$obj); -my $pc = new JSON; +my $pc = JSON->new; $js = '{"foo":0}'; $obj = $pc->decode($js); diff --git a/t/104_sortby.t b/t/104_sortby.t index 20b087e..9262381 100644 --- a/t/104_sortby.t +++ b/t/104_sortby.t @@ -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 --git a/t/105_esc_slash.t b/t/105_esc_slash.t index 495766e..3aad042 100644 --- a/t/105_esc_slash.t +++ b/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} ||= "JSON::backportPP"; } use JSON -support_by_pp; diff --git a/t/106_allow_barekey.t b/t/106_allow_barekey.t index 042e0bd..1305c7f 100644 --- a/t/106_allow_barekey.t +++ b/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} ||= "JSON::backportPP"; } use JSON -support_by_pp; diff --git a/t/107_allow_singlequote.t b/t/107_allow_singlequote.t index b1f6a6c..c7bec6c 100644 --- a/t/107_allow_singlequote.t +++ b/t/107_allow_singlequote.t @@ -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 --git a/t/108_decode.t b/t/108_decode.t index 7e1e547..e38e438 100644 --- a/t/108_decode.t +++ b/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/t/109_encode.t b/t/109_encode.t index c189297..afc5fe3 100644 --- a/t/109_encode.t +++ b/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/t/10_pc_keysort.t b/t/10_pc_keysort.t index 5dc42ac..218b0bb 100644 --- a/t/10_pc_keysort.t +++ b/t/10_pc_keysort.t @@ -3,6 +3,7 @@ use Test::More; use strict; +use warnings; BEGIN { plan tests => 1 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } diff --git a/t/110_bignum.t b/t/110_bignum.t index 044e0e6..2425131 100644 --- a/t/110_bignum.t +++ b/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; +my $json = JSON->new; $json->allow_nonref->allow_bignum(1); $json->convert_blessed->allow_blessed; diff --git a/t/112_upgrade.t b/t/112_upgrade.t index 94b6d1f..6b9ad89 100644 --- a/t/112_upgrade.t +++ b/t/112_upgrade.t @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 3 }; diff --git a/t/113_overloaded_eq.t b/t/113_overloaded_eq.t index f9bc8e8..0aaa7d0 100644 --- a/t/113_overloaded_eq.t +++ b/t/113_overloaded_eq.t @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More tests => 4; BEGIN { @@ -28,6 +29,7 @@ ok(!$@); package Foo; use strict; +use warnings; use overload ( 'eq' => sub { 0 }, '""' => sub { $_[0] }, @@ -41,6 +43,7 @@ sub TO_JSON { package Bar; use strict; +use warnings; use overload ( 'eq' => sub { 0 }, '""' => sub { $_[0] }, diff --git a/t/114_decode_prefix.t b/t/114_decode_prefix.t index 78db21e..91ec3e0 100644 --- a/t/114_decode_prefix.t +++ b/t/114_decode_prefix.t @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More tests => 8; BEGIN { diff --git a/t/115_tie_ixhash.t b/t/115_tie_ixhash.t index 95920e0..e03d0c7 100644 --- a/t/115_tie_ixhash.t +++ b/t/115_tie_ixhash.t @@ -1,5 +1,6 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 2 }; diff --git a/t/116_incr_parse_fixed.t b/t/116_incr_parse_fixed.t index 7bbee2f..aefdcb8 100644 --- a/t/116_incr_parse_fixed.t +++ b/t/116_incr_parse_fixed.t @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More tests => 4; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } diff --git a/t/117_numbers.t b/t/117_numbers.t index 6eed93d..f7e99fb 100644 --- a/t/117_numbers.t +++ b/t/117_numbers.t @@ -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 --git a/t/118_boolean_values.t b/t/118_boolean_values.t index 32e7390..732e469 100644 --- a/t/118_boolean_values.t +++ b/t/118_boolean_values.t @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON; @@ -38,13 +39,14 @@ if (eval "require Types::Serialiser; 1") { 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 @@ for my $test (@tests) { 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 --git a/t/11_pc_expo.t b/t/11_pc_expo.t index 585290a..7d780ca 100644 --- a/t/11_pc_expo.t +++ b/t/11_pc_expo.t @@ -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 @@ use JSON; ######################### my ($js,$obj); -my $pc = new JSON; +my $pc = JSON->new; $js = q|[-12.34]|; $obj = $pc->decode($js); diff --git a/t/12_blessed.t b/t/12_blessed.t index f966f43..c8800dd 100644 --- a/t/12_blessed.t +++ b/t/12_blessed.t @@ -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 --git a/t/13_limit.t b/t/13_limit.t index 6493733..2a53882 100644 --- a/t/13_limit.t +++ b/t/13_limit.t @@ -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 --git a/t/14_latin1.t b/t/14_latin1.t index ceda9db..c88cbba 100644 --- a/t/14_latin1.t +++ b/t/14_latin1.t @@ -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 --git a/t/15_prefix.t b/t/15_prefix.t index a9c5b2e..02a5cb1 100644 --- a/t/15_prefix.t +++ b/t/15_prefix.t @@ -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 --git a/t/16_tied.t b/t/16_tied.t index 2298d7d..7d3594a 100644 --- a/t/16_tied.t +++ b/t/16_tied.t @@ -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 --git a/t/17_relaxed.t b/t/17_relaxed.t index 01cf81c..f4421da 100644 --- a/t/17_relaxed.t +++ b/t/17_relaxed.t @@ -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 --git a/t/19_incr.t b/t/19_incr.t index 6749fd4..4610781 100644 --- a/t/19_incr.t +++ b/t/19_incr.t @@ -45,7 +45,7 @@ splitter +JSON->new->allow_nonref (1), ' 0.00E+00 '; { 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 @@ splitter +JSON->new->allow_nonref (1), ' 0.00E+00 '; { 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 --git a/t/20_unknown.t b/t/20_unknown.t index 921acae..434cc1a 100644 --- a/t/20_unknown.t +++ b/t/20_unknown.t @@ -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 --git a/t/21_evans.t b/t/21_evans.t index 9136791..d907ed9 100644 --- a/t/21_evans.t +++ b/t/21_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->new->encode ($data); -my $j = new JSON; +my $j = JSON->new; my $object = $j->incr_parse ($js); die "no object" if !$object; diff --git a/t/52_object.t b/t/52_object.t index 1acf5ea..212f741 100644 --- a/t/52_object.t +++ b/t/52_object.t @@ -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 @@ sub JSON::freeze::THAW { 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 --git a/t/99_binary.t b/t/99_binary.t index 3c19c35..8779643 100644 --- a/t/99_binary.t +++ b/t/99_binary.t @@ -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 --git a/t/gh_28_json_test_suite.t b/t/gh_28_json_test_suite.t index a8f7401..4146d50 100644 --- a/t/gh_28_json_test_suite.t +++ b/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/t/gh_29_trailing_false_value.t b/t/gh_29_trailing_false_value.t index 5a42bb1..44636ee 100644 --- a/t/gh_29_trailing_false_value.t +++ b/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/t/rt_116998_wrong_character_offset.t b/t/rt_116998_wrong_character_offset.t index 8b9c0c5..30522ba 100644 --- a/t/rt_116998_wrong_character_offset.t +++ b/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} ||= "JSON::backportPP"; } diff --git a/t/rt_90071_incr_parse.t b/t/rt_90071_incr_parse.t index c45de15..10015d1 100644 --- a/t/rt_90071_incr_parse.t +++ b/t/rt_90071_incr_parse.t @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON; diff --git a/t/zero-mojibake.t b/t/zero-mojibake.t index 72c48f8..bafb453 100644 --- a/t/zero-mojibake.t +++ b/t/zero-mojibake.t @@ -1,4 +1,5 @@ use strict; +use warnings; use Test::More; BEGIN { plan tests => 1 }; -- cgit v1.2.3