diff options
-rw-r--r-- | op.c | 2 | ||||
-rw-r--r-- | pp.c | 2 | ||||
-rw-r--r-- | pp_ctl.c | 2 | ||||
-rw-r--r-- | toke.c | 4 | ||||
-rw-r--r-- | universal.c | 2 |
5 files changed, 6 insertions, 6 deletions
@@ -3885,7 +3885,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg) if (expr->op_type == OP_CONST) { SV *pat = ((SVOP*)expr)->op_sv; - U32 pm_flags = pm->op_pmflags & PMf_COMPILETIME; + U32 pm_flags = pm->op_pmflags & RXf_PMf_COMPILETIME; if (o->op_flags & OPf_SPECIAL) pm_flags |= RXf_SPLIT; @@ -5925,7 +5925,7 @@ PP(pp_split) s++; } } - if (RX_EXTFLAGS(rx) & PMf_MULTILINE) { + if (RX_EXTFLAGS(rx) & RXf_PMf_MULTILINE) { multiline = 1; } @@ -185,7 +185,7 @@ PP(pp_regcomp) memNE(RX_PRECOMP(re), t, len)) { const regexp_engine *eng = re ? RX_ENGINE(re) : NULL; - U32 pm_flags = pm->op_pmflags & PMf_COMPILETIME; + U32 pm_flags = pm->op_pmflags & RXf_PMf_COMPILETIME; if (re) { ReREFCNT_dec(re); #ifdef USE_ITHREADS @@ -2834,7 +2834,7 @@ S_scan_const(pTHX_ char *start) /* likewise skip #-initiated comments in //x patterns */ else if (*s == '#' && PL_lex_inpat && - ((PMOP*)PL_lex_inpat)->op_pmflags & PMf_EXTENDED) { + ((PMOP*)PL_lex_inpat)->op_pmflags & RXf_PMf_EXTENDED) { while (s+1 < send && *s != '\n') *d++ = NATIVE_TO_NEED(has_utf8,*s++); } @@ -12158,7 +12158,7 @@ S_pmflag(U32 pmfl, const char ch) { case GLOBAL_PAT_MOD: pmfl |= PMf_GLOBAL; break; case CONTINUE_PAT_MOD: pmfl |= PMf_CONTINUE; break; case ONCE_PAT_MOD: pmfl |= PMf_KEEP; break; - case KEEPCOPY_PAT_MOD: pmfl |= PMf_KEEPCOPY; break; + case KEEPCOPY_PAT_MOD: pmfl |= RXf_PMf_KEEPCOPY; break; case NONDESTRUCT_PAT_MOD: pmfl |= PMf_NONDESTRUCT; break; } return pmfl; diff --git a/universal.c b/universal.c index 96a92cf994..07bbe96504 100644 --- a/universal.c +++ b/universal.c @@ -1174,7 +1174,7 @@ XS(XS_re_regexp_pattern) left += len; } fptr = INT_PAT_MODS; - match_flags = (U16)((RX_EXTFLAGS(re) & PMf_COMPILETIME) + match_flags = (U16)((RX_EXTFLAGS(re) & RXf_PMf_COMPILETIME) >> RXf_PMf_STD_PMMOD_SHIFT); while((ch = *fptr++)) { |