X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FEval%2FClosure.pm;h=86a83777a87b428e632e9fdf05b580c6d303c6d8;hb=a30f41f751f2b5f939d14f5dc72f551776c2f7f9;hp=0b8bd279a4356049f4e45a6a4a9188554b59b927;hpb=d33192724b4e73a6603e1c50cfd7b531715fd007;p=gitmo%2FEval-Closure.git

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 {