Run END phasers when exit terminates a program.

rakudo · May 8, 2012 · 1b5ab32 · 1b5ab32
1 parent 4b16cae
commit 1b5ab32
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/control.pm b/src/core/control.pm
@@ -158,6 +158,7 @@ sub eval(Str $code, :$lang = 'perl6') {
 
 
 sub exit($status = 0) {
+    $_() for pir::perl6ize_type__PP(@*END_PHASERS);
     nqp::exit($status.Int);
     $status;
 }