diff options
author | Dave Rolsky <autarch@urth.org> | 2011-06-05 17:18:36 -0500 |
---|---|---|
committer | Dave Rolsky <autarch@urth.org> | 2011-06-05 17:18:36 -0500 |
commit | 25ef01353abd953c2c953c60e2b0c0ef6620d1c8 (patch) | |
tree | 578ce91741431633fd82c4b575ca1d07731fd052 /lib | |
parent | cf37ba1aad21346d2013ccf1388912031dac98bc (diff) | |
download | eval-closure-25ef01353abd953c2c953c60e2b0c0ef6620d1c8.tar.gz eval-closure-25ef01353abd953c2c953c60e2b0c0ef6620d1c8.zip |
The call to _make_compiler_source for _dump_source passed the wrong arguments
Diffstat (limited to 'lib')
-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) { |