From 277b168dc15c1824c8d4fc06b88f920bb82a9be2 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Sat, 1 Apr 2017 18:37:19 +0300 Subject: [PATCH] Make (un)import arguments case-insensitive --- lib/evil.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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' -- 2.39.2