From: Marius Gavrilescu <marius@ieval.ro>
Date: Sat, 1 Apr 2017 15:37:19 +0000 (+0300)
Subject: Make (un)import arguments case-insensitive
X-Git-Tag: 0.003~4
X-Git-Url: http://git.ieval.ro/?p=acme-evil.git;a=commitdiff_plain;h=277b168dc15c1824c8d4fc06b88f920bb82a9be2

Make (un)import arguments case-insensitive
---

diff --git a/lib/evil.pm b/lib/evil.pm
index 72dabb0..c5faa09 100644
--- a/lib/evil.pm
+++ b/lib/evil.pm
@@ -37,10 +37,10 @@ sub import {
 }
 
 sub unimport {
-	my $strict_arg = grep /^:strict$/, @_;
-	my $intermediate_arg = grep /^:intermediate$/, @_;
-	my $lax_arg = grep /^:lax$/, @_;
-	my $disable_arg = grep /^:disable/, @_;
+	my $strict_arg = grep /^:strict$/i, @_;
+	my $intermediate_arg = grep /^:intermediate$/i, @_;
+	my $lax_arg = grep /^:lax$/i, @_;
+	my $disable_arg = grep /^:disable$/i, @_;
 
 	if (!$disable_arg && $tainted{caller()}) { # caller is evil
 		croak 'Current module is evil'