Update Failure objects to output to contextual $*ERR.

rakudo · Sep 5, 2009 · 86a9268 · 86a9268
1 parent 7734f9b
commit 86a9268
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/classes/Failure.pir b/src/classes/Failure.pir
@@ -10,7 +10,7 @@
     p6meta.'register'('Undef', 'parent'=>failureproto, 'protoobject'=>failureproto)
 
     $P0 = box 1
-    set_hll_global ['CORE';'GLOBAL'], '$WARNINGS', $P0
+    set_hll_global ['GLOBAL'], '$WARNINGS', $P0
 .end
 
 =head2 Methods
@@ -84,13 +84,13 @@
 .sub '!throw_unhandled' :method
     $I0 = self.'handled'()
     if $I0 goto done
-    $P0 = get_hll_global ['CORE';'GLOBAL'], '$WARNINGS'
+    $P0 = get_hll_global ['GLOBAL'], '$WARNINGS'
     unless $P0 goto done
     $P0 = self.'!exception'()
     $S0 = $P0['message']
     $S0 = concat $S0, "\n"
     .local pmc err
-    err = get_hll_global "$ERR"
+    err = '!find_contextual'('$*ERR')
     err.'print'($S0)
   done:
 .end