From 94e23936f40b45d8e22189e34c1b7d34b0829194 Mon Sep 17 00:00:00 2001 From: Olivier Mengué Date: Thu, 31 Mar 2016 23:34:39 +0200 Subject: _clean_eval: return a list instead of a short lived array ref --- lib/Eval/Closure.pm | 4 ++-- 1 file 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; -- cgit v1.2.3-54-g00ecf