the double eval isn't necessary anymore
Jesse Luehrs [Thu, 9 Feb 2012 15:27:05 +0000 (09:27 -0600)]
lib/Eval/Closure.pm

index 0fa6aa8..161bcdf 100644 (file)
@@ -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;