Unbreak 98c32aa for parrot (RT #122681)

rakudo · Sep 2, 2014 · a640aab · a640aab
1 parent ef380d2
commit a640aab
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -154,6 +154,9 @@ multi infix:<div>(Int:D \a, Int:D \b) {
     nqp::div_I(nqp::decont(a), nqp::decont(b), Int)
 }
 multi infix:<div>(int $a, int $b) returns int {
+#?if parrot
+    fail X::Numeric::DivideByZero.new unless $b; # XXX temporary fix
+#?endif
     # relies on opcode or hardware to detect division by 0
     nqp::div_i($a, $b)
 }
@@ -163,6 +166,9 @@ multi infix:<%>(Int:D \a, Int:D \b) returns Int {
     nqp::mod_I(nqp::decont(a), nqp::decont(b), Int);
 }
 multi infix:<%>(int $a, int $b) returns int {
+#?if parrot
+    fail X::Numeric::DivideByZero.new(using => 'infix:<%>') unless $b;
+#?endif
     # relies on opcode or hardware to detect division by 0
     nqp::mod_i($a, $b)
 }