diff options
Diffstat (limited to 'lib/Eval/Closure.pm')
-rw-r--r-- | lib/Eval/Closure.pm | 4 |
1 files 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}); |