[win32] fix misplaced SPAGAIN that caused successful s/// to fail to

return a value on the stack

p4raw-id: //depot/win32/perl@1000

diff --git a/pp_hot.c b/pp_hot.c
index 9e9ee3c..8c67b44 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1695,13 +1695,13 @@ PP(pp_subst)
        sv_free(dstr);
 
        TAINT_IF(rxtainted & 1);
+       SPAGAIN;
        PUSHs(sv_2mortal(newSViv((I32)iters)));
 
        (void)SvPOK_only(TARG);
        TAINT_IF(rxtainted);
        SvSETMAGIC(TARG);
        SvTAINT(TARG);
-       SPAGAIN;
        LEAVE_SCOPE(oldsave);
        RETURN;
     }