From a30f41f751f2b5f939d14f5dc72f551776c2f7f9 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 20 Oct 2010 14:45:14 -0500 Subject: don't need this to be a do block anymore --- lib/Eval/Closure.pm | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'lib') 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 { -- cgit v1.2.3-54-g00ecf