Make (un)import arguments case-insensitive

diff --git a/lib/evil.pm b/lib/evil.pm
index 72dabb0d9746a2699367a20e36779a78738e71fe..c5faa09bf2163ff7b4cf3b16ca3639d603866e82 100644 (file)
--- 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'