diff options
| author | Yves Orton <demerphq@gmail.com> | 2007-04-04 03:46:26 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-04-04 08:32:37 +0000 |
| commit | c737faaf63999e5a68ef536d362cea408ab990b7 (patch) | |
| tree | 9bba722e0cb47bd933e45e1f909a7f265301deb0 /regexec.c | |
| parent | 92a665d639a42192198e801676cccae0bd9afa83 (diff) | |
| download | perl-c737faaf63999e5a68ef536d362cea408ab990b7.tar.gz | |
Re: pmdynflags and thread safety
Message-ID: <9b18b3110704031646p7ac8dbearf9e41397a5f884d8@mail.gmail.com>
p4raw-id: //depot/perl@30841
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 7 |
1 files changed, 3 insertions, 4 deletions
@@ -3665,12 +3665,11 @@ S_regmatch(pTHX_ regmatch_info *reginfo, regnode *prog) else { STRLEN len; const char * const t = SvPV_const(ret, len); - PMOP pm; + U32 pm_flags = 0; const I32 osize = PL_regsize; - Zero(&pm, 1, PMOP); - if (DO_UTF8(ret)) pm.op_pmdynflags |= PMdf_DYN_UTF8; - re = CALLREGCOMP((char*)t, (char*)t + len, &pm); + if (DO_UTF8(ret)) pm_flags |= RXf_UTF8; + re = CALLREGCOMP((char*)t, (char*)t + len, pm_flags); if (!(SvFLAGS(ret) & (SVs_TEMP | SVs_PADTMP | SVf_READONLY | SVs_GMG))) |