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;