Class-Tiny-527c: no strict hashpairs

rurban · May 15, 2017 · 0205433 · 0205433
1 parent 0b709b1
commit 0205433
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 0 deletions.
diff --git a/prefs/Class-Tiny.yml b/prefs/Class-Tiny.yml
@@ -0,0 +1,9 @@
+---
+comment: "cperl strict hashpairs"
+match:
+  distribution: "Class-Tiny-1\.006"
+  perlconfig:
+    version: "^5\.2[78]"
+    usecperl: "define"
+patches:
+  - "RURBAN/patches/Class-Tiny-527c.patch"
diff --git a/sources/authors/id/R/RU/RURBAN/patches/Class-Tiny-527c.patch b/sources/authors/id/R/RU/RURBAN/patches/Class-Tiny-527c.patch
@@ -0,0 +1,11 @@
+diff -bu ./lib/Class/Tiny.pm~ ./lib/Class/Tiny.pm
+--- ./lib/Class/Tiny.pm~	2017-05-15 10:11:53.000000000 +0200
++++ ./lib/Class/Tiny.pm	2017-05-15 10:11:27.000000000 +0200
+@@ -30,6 +30,7 @@
+ # adapted from Object::Tiny and Object::Tiny::RW
+ sub create_attributes {
+     my ( $class, $pkg, @spec ) = @_;
++    BEGIN { strict->unimport('hashpairs') if $] > 5.026 and $^V =~ /c$/; }
+     my %defaults = map { ref $_ eq 'HASH' ? %$_ : ( $_ => undef ) } @spec;
+     my @attr = grep {
+         defined and !ref and /^[^\W\d]\w*$/s