diff options
Diffstat (limited to 'lib/Eval/Closure.pm')
-rw-r--r-- | lib/Eval/Closure.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm index 3021d68..f85b8e5 100644 --- a/lib/Eval/Closure.pm +++ b/lib/Eval/Closure.pm @@ -221,7 +221,7 @@ sub _clean_eval_closure { if ($alias) { require Devel::LexAlias; Devel::LexAlias::lexalias($code, $_, $captures->{$_}) - for grep index($_, '&')==-1, @capture_keys; + for grep substr($_, 0, 1) ne '&', @capture_keys; } return ($code, $e); |