From e18489a1f13ca6ee9adfe9791a0a05e90feafb0f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Olivier=20Mengu=C3=A9?= <dolmen@cpan.org>
Date: Wed, 30 Mar 2016 23:13:17 +0200
Subject: Use index() instead of regexp

---
 lib/Eval/Closure.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm
index e129c53..868e4a8 100644
--- a/lib/Eval/Closure.pm
+++ b/lib/Eval/Closure.pm
@@ -171,11 +171,11 @@ sub _validate_env {
     for my $var (keys %$env) {
         if (HAS_LEXICAL_SUBS) {
             croak("Environment key '$var' should start with \@, \%, \$, or \&")
-                unless $var =~ /^([\@\%\$\&])/;
+                if index('$@%&', substr($var, 0, 1)) < 0;
         }
         else {
             croak("Environment key '$var' should start with \@, \%, or \$")
-                unless $var =~ /^([\@\%\$])/;
+                if index('$@%', substr($var, 0, 1)) < 0;
         }
         croak("Environment values must be references, not $env->{$var}")
             unless ref($env->{$var});
-- 
cgit v1.2.3