diff options
-rw-r--r-- | lib/Eval/Closure.pm | 5 |
1 files changed, 3 insertions, 2 deletions
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) { |