Handle exit() within END blocks better

rakudo · Oct 29, 2014 · b6b1b7c · b6b1b7c
1 parent 2ca414c
commit b6b1b7c
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -213,9 +213,14 @@ multi sub EVAL(Cool $code, :$lang = 'perl6', PseudoStash :$context) {
 }
 
 sub exit($status = 0) {
+    state $exit;
+    $exit = $status;
+
+    return if $++;  # already exiting
+
     THE_END();
-    nqp::exit(nqp::unbox_i($status.Int));
-    $status;
+    nqp::exit(nqp::unbox_i($exit.Int));
+    $exit;
 }
 
 sub THE_END {