diff options
| -rw-r--r-- | lib/Eval/Closure.pm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm index 0b8bd27..86a8377 100644 --- a/lib/Eval/Closure.pm +++ b/lib/Eval/Closure.pm @@ -50,17 +50,15 @@ sub _clean_eval_closure { # my ($source, $__captures, $name) = @_ my $__captures = $_[1]; - do { - local $@; - local $SIG{__DIE__}; + local $@; + local $SIG{__DIE__}; - if ($ENV{EVAL_CLOSURE_PRINT_SOURCE}) { - _dump_source(_make_source(@_), $_[2]); - } + if ($ENV{EVAL_CLOSURE_PRINT_SOURCE}) { + _dump_source(_make_source(@_), $_[2]); + } - my $code = eval _make_source(@_); - ($code, $@); - }; + my $code = eval _make_source(@_); + ($code, $@); } sub _make_source { |