the double eval isn't necessary anymore

[gitmo/Eval-Closure.git] / lib / Eval / Closure.pm

diff --git a/lib/Eval/Closure.pm b/lib/Eval/Closure.pm
index 0fa6aa8..161bcdf 100644 (file)
--- a/lib/Eval/Closure.pm
+++ b/lib/Eval/Closure.pm
@@ -197,13 +197,11 @@ sub _make_compiler {
 }
 
 sub _clean_eval {
-    return eval <<EVAL;
-local \$@;
-local \$SIG{__DIE__};
-my \$compiler = eval \$_[0];
-my \$e = \$@;
-[ \$compiler, \$e ];
-EVAL
+    local $@;
+    local $SIG{__DIE__};
+    my $compiler = eval $_[0];
+    my $e = $@;
+    [ $compiler, $e ];
 }
 
 $Eval::Closure::SANDBOX_ID = 0;