diff options
| author | Olivier Mengué <dolmen@cpan.org> | 2016-03-31 23:34:39 +0200 |
|---|---|---|
| committer | Olivier Mengué <dolmen@cpan.org> | 2016-04-01 00:05:16 +0200 |
| commit | 94e23936f40b45d8e22189e34c1b7d34b0829194 (patch) | |
| tree | cd1956a867720e5ce6a876e1546441d65dd9ed4a | |
| parent | e4485b5c3bd9de9ad7d5caacbc36164479696def (diff) | |
| download | eval-closure-94e23936f40b45d8e22189e34c1b7d34b0829194.tar.gz eval-closure-94e23936f40b45d8e22189e34c1b7d34b0829194.zip | |
_clean_eval: return a list instead of a short lived array ref
| -rw-r--r-- | lib/Eval/Closure.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm index 3b7c0ee..1b90308 100644 --- a/lib/Eval/Closure.pm +++ b/lib/Eval/Closure.pm @@ -231,7 +231,7 @@ sub _clean_eval_closure { sub _make_compiler { my $source = _make_compiler_source(@_); - return @{ _clean_eval($source) }; + _clean_eval($source) } sub _clean_eval { @@ -239,7 +239,7 @@ sub _clean_eval { local $SIG{__DIE__}; my $compiler = eval $_[0]; my $e = $@; - [ $compiler, $e ]; + ( $compiler, $e ) } $Eval::Closure::SANDBOX_ID = 0; |