Real regexps are stored via RVs, IVs can only mean spare slots. Hence

it's safe to make the scalar undefined, rather than calling out to
write a 0 that would also be interpreted as a NULL pointer.

p4raw-id: //depot/perl@32943

diff --git a/op.c b/op.c
index 34eb2e6..9410bf0 100644 (file)
--- a/op.c
+++ b/op.c
@@ -3370,7 +3370,7 @@ Perl_newPMOP(pTHX_ I32 type, I32 flags)
        SV * const repointer = av_pop((AV*)PL_regex_pad[0]);
        const IV offset = SvIV(repointer);
        pmop->op_pmoffset = offset;
-       sv_setiv(repointer,0);
+       SvOK_off(repointer);
        assert(repointer == PL_regex_pad[offset]);
        /* One reference remains, in PL_regex_pad[offset]  */
        SvREFCNT_dec(repointer);