diff options
| author | Olivier Mengué <dolmen@cpan.org> | 2016-03-31 22:06:28 +0200 |
|---|---|---|
| committer | Olivier Mengué <dolmen@cpan.org> | 2016-03-31 22:06:28 +0200 |
| commit | a3aa0aeca8fd616f9875cf9befa48e6053caf108 (patch) | |
| tree | bcf834809591b46188ea71d0c6f8f95a71b3156d | |
| parent | accdae76a26f699f093f02e6591df8b3ab99042f (diff) | |
| download | eval-closure-a3aa0aeca8fd616f9875cf9befa48e6053caf108.tar.gz eval-closure-a3aa0aeca8fd616f9875cf9befa48e6053caf108.zip | |
Reuse @capture_keys instead of querying keys one more time
| -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 8f5da16..dbe6ea1 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 index($_, '&')==-1, keys %$captures; + for grep index($_, '&')==-1, @capture_keys; } return ($code, $e); |