diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-12 21:08:06 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-08-12 21:08:06 +0000 |
| commit | 5700b71cd8484a5485a9fb0bdde355ded1194121 (patch) | |
| tree | cd3d44197cc0beafd39cb8e44657fe0c202c8cb0 /op.c | |
| parent | 22ea838f62453c7a2f8000a23c820b7a34636711 (diff) | |
| download | perl-5700b71cd8484a5485a9fb0bdde355ded1194121.tar.gz | |
More (less) regex/utf8 relics. (Toned down later in #11653.)
p4raw-id: //depot/perl@11651
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -3002,16 +3002,12 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, OP *repl) p = SvPV(pat, plen); pm->op_pmflags |= PMf_SKIPWHITE; } - if (DO_UTF8(pat)) - pm->op_pmdynflags |= PMdf_UTF8; PM_SETRE(pm, CALLREGCOMP(aTHX_ p, p + plen, pm)); if (strEQ("\\s+", PM_GETRE(pm)->precomp)) pm->op_pmflags |= PMf_WHITE; op_free(expr); } else { - if (!IN_BYTES) - pm->op_pmdynflags |= PMdf_UTF8; if (pm->op_pmflags & PMf_KEEP || !(PL_hints & HINT_RE_EVAL)) expr = newUNOP((!(PL_hints & HINT_RE_EVAL) ? OP_REGCRESET |