Return proper type from infix:<**> patch.

moritz++ for spotting this one.
rakudo · Jul 12, 2013 · 00cd347 · 00cd347
1 parent 0562424
commit 00cd347
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Num.pm b/src/core/Num.pm
@@ -310,7 +310,7 @@ multi infix:<%>(num $a, num $b) {
 multi infix:<**>(Num:D \a, Num:D \b) {
 #?if jvm
     # Parrot takes care of this for you in pow_n
-    return 1 if a == 1 && !b.isNaN;
+    return 1e0 if a == 1 && !b.isNaN;
 #?endif
     nqp::p6box_n(nqp::pow_n(nqp::unbox_n(a), nqp::unbox_n(b)))
 }