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

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 34eb2e646a..9410bf0d37 100644
--- 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);