Re: pmdynflags and thread safety

Message-ID: <9b18b3110704031646p7ac8dbearf9e41397a5f884d8@mail.gmail.com>

p4raw-id: //depot/perl@30841

1 files changed, 5 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 09a1772f88..2d3af25c6e 100644
--- a/sv.c
+++ b/sv.c
@@ -7269,7 +7269,11 @@ Perl_sv_reset(pTHX_ register const char *s, HV *stash)
 	if (mg) {
 	    PMOP *pm = (PMOP *) mg->mg_obj;
 	    while (pm) {
-		pm->op_pmdynflags &= ~PMdf_USED;
+#ifdef USE_ITHREADS
+                SvREADONLY_off(PL_regex_pad[pm->op_pmoffset]);
+#else
+		pm->op_pmflags &= ~PMf_USED;
+#endif
 		pm = pm->op_pmnext;
 	    }
 	}