From a3aa0aeca8fd616f9875cf9befa48e6053caf108 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Olivier=20Mengu=C3=A9?= <dolmen@cpan.org>
Date: Thu, 31 Mar 2016 22:06:28 +0200
Subject: Reuse @capture_keys instead of querying keys one more time

---
 lib/Eval/Closure.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
-- 
cgit v1.2.3