From: Marius Gavrilescu 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/?a=commitdiff_plain;h=277b168dc15c1824c8d4fc06b88f920bb82a9be2;p=acme-evil.git 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'