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