diff -bu Params-Util-1.07-18/t/02_main.t~ Params-Util-1.07-18/t/02_main.t --- Params-Util-1.07-18/t/02_main.t~ 2012-03-11 01:39:46.000000000 +0100 +++ Params-Util-1.07-18/t/02_main.t 2018-10-11 12:18:17.000000000 +0200 @@ -802,8 +802,8 @@ # Tests for _SET my %set = ( - good => [ map { bless {} => 'Foo' } qw(1..3) ], - mixed => [ map { bless {} => "Foo$_" } qw(1..3) ], + good => [ map { bless {} => 'Foo' } 1..3 ], + mixed => [ map { bless {} => "Foo$_" } 1..3 ], unblessed => [ map { {} } qw(1..3) ], ); diff -bu Params-Util-1.07-18/t/06_invocant.t~ Params-Util-1.07-18/t/06_invocant.t --- Params-Util-1.07-18/t/06_invocant.t~ 2012-03-11 01:39:46.000000000 +0100 +++ Params-Util-1.07-18/t/06_invocant.t 2018-10-11 12:19:47.000000000 +0200 @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; +no strict; BEGIN { $| = 1; $^W = 1; diff -bu Params-Util-1.07-18/t/12_main.t~ Params-Util-1.07-18/t/12_main.t --- Params-Util-1.07-18/t/12_main.t~ 2018-10-11 12:16:03.000000000 +0200 +++ Params-Util-1.07-18/t/12_main.t 2018-10-11 12:20:04.000000000 +0200 @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; +no strict; BEGIN { $| = 1; $^W = 1; diff -bu Params-Util-1.07-18/t/16_invocant.t~ Params-Util-1.07-18/t/16_invocant.t --- Params-Util-1.07-18/t/16_invocant.t~ 2018-10-11 12:16:03.000000000 +0200 +++ Params-Util-1.07-18/t/16_invocant.t 2018-10-11 12:20:19.000000000 +0200 @@ -1,6 +1,6 @@ #!/usr/bin/perl -use strict; +no strict; BEGIN { $| = 1; $^W = 1;