diff --git a/src/core/Exception.pm b/src/core/Exception.pm index 4b45ce0de43..beb7af52d94 100644 --- a/src/core/Exception.pm +++ b/src/core/Exception.pm @@ -246,6 +246,7 @@ do { nqp::printfh($err, "\n"); } THE_END(); + CONTROL { when CX::Warn { .resume } } } if $! { nqp::rethrow(nqp::getattr(nqp::decont($!), Exception, '$!ex'));