diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-22 02:47:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-22 02:47:08 +0000 |
| commit | a5961de5f4215b5cd376e88c8c5d267c7f7123f6 (patch) | |
| tree | 84f55358517d319d1b067b05c90e7034e1e4a29e /op.c | |
| parent | 96c57f7e641f15cc924272c2d866750e62c1b955 (diff) | |
| download | perl-a5961de5f4215b5cd376e88c8c5d267c7f7123f6.tar.gz | |
Unicode casefolding fixes.
p4raw-id: //depot/perl@13843
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -3127,12 +3127,16 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, OP *repl) p = SvPV(pat, plen); pm->op_pmflags |= PMf_SKIPWHITE; } + if (DO_UTF8(pat) || (PL_hints & HINT_UTF8)) + 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 (PL_hints & HINT_UTF8) + 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 |