Uninitialized Memory Read in regexec.c

p4raw-id: //depot/perl@9148

diff --git a/regexec.c b/regexec.c
index a7b6411..2420f8d 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2520,7 +2520,7 @@ S_regmatch(pTHX_ regnode *prog)
                        I32 osize = PL_regsize;
                        I32 onpar = PL_regnpar;
 
-                       pm.op_pmflags = 0;
+                       Zero(&pm, 1, PMOP);
                        re = CALLREGCOMP(aTHX_ t, t + len, &pm);
                        if (!(SvFLAGS(ret)
                              & (SVs_TEMP | SVs_PADTMP | SVf_READONLY)))