don't need this to be a do block anymore
Jesse Luehrs [Wed, 20 Oct 2010 19:45:14 +0000 (14:45 -0500)]
lib/Eval/Closure.pm

index 0b8bd27..86a8377 100644 (file)
@@ -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 {