Unbreak warnings. (Oops.)

rakudo · May 15, 2009 · 6ac1eaf · 6ac1eaf
1 parent e86dd9e
commit 6ac1eaf
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/perl6.pir b/perl6.pir
@@ -212,6 +212,12 @@ and report exceptions.
    trap_errors:
     .local pmc exception, bt, it, cur_block, anno
     .get_results (exception)
+    $I0 = exception['severity']
+    if $I0 != .EXCEPT_WARNING goto not_warning
+    say exception
+    $P0 = exception["resume"]
+    $P0()
+  not_warning:
     pop_eh
     bt = exception.'backtrace'()
     it = iter bt