From 25ef01353abd953c2c953c60e2b0c0ef6620d1c8 Mon Sep 17 00:00:00 2001
From: Dave Rolsky <autarch@urth.org>
Date: Sun, 5 Jun 2011 17:18:36 -0500
Subject: The call to _make_compiler_source for _dump_source passed the wrong
 arguments

---
 lib/Eval/Closure.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm
index 7cf884d..5709b3a 100644
--- a/lib/Eval/Closure.pm
+++ b/lib/Eval/Closure.pm
@@ -172,11 +172,12 @@ sub _line_directive {
 sub _clean_eval_closure {
      my ($source, $captures) = @_;
 
+    my @capture_keys = sort keys %$captures;
+
     if ($ENV{EVAL_CLOSURE_PRINT_SOURCE}) {
-        _dump_source(_make_compiler_source(@_));
+        _dump_source(_make_compiler_source($source, @capture_keys));
     }
 
-    my @capture_keys = sort keys %$captures;
     my ($compiler, $e) = _make_compiler($source, @capture_keys);
     my $code;
     if (defined $compiler) {
-- 
cgit v1.2.3-54-g00ecf