From: Dave Rolsky <autarch@urth.org>
Date: Sun, 5 Jun 2011 22:18:36 +0000 (-0500)
Subject: The call to _make_compiler_source for _dump_source passed the wrong arguments
X-Git-Tag: 0.06~1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=25ef01353abd953c2c953c60e2b0c0ef6620d1c8;p=gitmo%2FEval-Closure.git

The call to _make_compiler_source for _dump_source passed the wrong arguments
---

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) {