run END blocks after printing exception

rakudo · May 6, 2012 · d9fd173 · d9fd173
1 parent dd66583
commit d9fd173
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -88,6 +88,7 @@ do {
                 $err.print: $ex;
                 $err.print: "\n";
             }
+            $_() for pir::perl6ize_type__PP(@*END_PHASERS);
         }
         if $! {
             pir::perl6_based_rethrow__vPP(nqp::getattr($!, Exception, '$!ex'), $ex);