Test Config.

[p5sagit/p5-mst-13.2.git] / pp.c

diff --git a/pp.c b/pp.c
index 08cb9cf..7fa9c06 100644 (file)
--- 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--;
@@ -3849,7 +3851,7 @@ PP(pp_hslice)
        while (++MARK <= SP) {
            SV *keysv = *MARK;
            SV **svp;
-           I32 preeminent;
+           bool preeminent = FALSE;
 
             if (localizing) {
                 preeminent = SvRMAGICAL(hv) && !other_magic ? 1 :