Ignore warnings when printing exception.

Not a prefect solution, but actually getting an exception message out is better than choking over warnings issues while producing it.
rakudo · May 16, 2015 · 652c245 · 652c245
1 parent 55ed38e
commit 652c245
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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'));