diff options
-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 868e4a8..8f5da16 100644 --- a/lib/Eval/Closure.pm +++ b/lib/Eval/Closure.pm @@ -214,7 +214,7 @@ sub _clean_eval_closure { if ($alias) { require Devel::LexAlias; Devel::LexAlias::lexalias($code, $_, $captures->{$_}) - for grep !/^\&/, keys %$captures; + for grep index($_, '&')==-1, keys %$captures; } return ($code, $e); |