X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp.c;h=7fa9c06933a7c8d9de35e6d30a017628e00a479f;hb=97ea268b1482091665a2c54da30873227f203194;hp=ae29d7930d145e492c2c1cb7c8495334d0e8b3f6;hpb=c5dbdf66079ecd9e6a93bc32d460d83bb66c6deb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp.c b/pp.c
index ae29d79..7fa9c06 100644
--- a/pp.c
+++ b/pp.c
@@ -956,6 +956,8 @@ PP(pp_pow)
                             result *= base;
                             /* Only bother to clear the bit if it is set.  */
                             power &= ~bit;
+                           /* Avoid squaring base again if we're done. */
+                           if (power == 0) break;
                         }
                     }
                     SP--;