Integrate mainline

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

diff --git a/doop.c b/doop.c
index e2faa87..51c2248 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -1336,8 +1336,10 @@ Perl_do_kv(pTHX)
     PUTBACK;   /* hv_iternext and hv_iterval might clobber stack_sp */
     while ((entry = hv_iternext(keys))) {
        SPAGAIN;
-       if (dokeys)
-           XPUSHs(hv_iterkeysv(entry));        /* won't clobber stack_sp */
+       if (dokeys) {
+           SV* sv = hv_iterkeysv(entry);
+           XPUSHs(sv); /* won't clobber stack_sp */
+       }
        if (dovalues) {
            PUTBACK;
            tmpstr = realhv ?