Do not catch exceptions from eval()

rakudo · Oct 5, 2011 · 741a933 · 741a933
1 parent ff78b5b
commit 741a933
Showing 1 changed file with 4 additions and 11 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -147,17 +147,10 @@ sub eval(Str $code, :$lang = 'perl6') {
         $P0 = getinterp
         %r = $P0['context';1]
     };
-    my $result;
-    my $success;
-    try {
-        my $compiler := pir::compreg__PS($lang);
-        my $pbc      := $compiler.compile($code, :outer_ctx($caller_ctx));
-        nqp::atpos($pbc, 0).set_outer_ctx($caller_ctx);
-        $result := $pbc();
-        $success = 1;
-    }
-    pir::find_caller_lex__Ps('$!') = $!;
-    $success ?? $result !! Any # XXX fail($!)
+    my $compiler := pir::compreg__PS($lang);
+    my $pbc      := $compiler.compile($code, :outer_ctx($caller_ctx));
+    nqp::atpos($pbc, 0).set_outer_ctx($caller_ctx);
+    $pbc();
 }