Int**Int does not produce an Int if the RHS is negative

... so don't try to corece to Int in that case. Fixes RT #73262
rakudo · Mar 7, 2010 · 201e027 · 201e027
1 parent d4d58aa
commit 201e027
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -68,7 +68,11 @@ our multi sub infix:<%>(Int $a, Int $b) {
 }
 
 our multi sub infix:<**>(Int $a, Int $b) {
-    upgrade_to_num_if_needed(pir::pow__NNN($a, $b))
+    if $b >= 0 {
+        upgrade_to_num_if_needed(pir::pow__NNN($a, $b))
+    } else {
+        pir::pow__NNN($a, $b)
+    }
 }
 
 our multi sub prefix:<->(Int $a) {