diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-01 20:29:30 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-01 20:29:30 +0000 |
| commit | 393fec973b1b95a178b4b9600173880d9f93debf (patch) | |
| tree | c3d4ec71f5df9352cf1aba3acb8afd24acb9ebe3 /op.c | |
| parent | a86f0dc98a98470272f57769cfd209896e37a52f (diff) | |
| download | perl-393fec973b1b95a178b4b9600173880d9f93debf.tar.gz | |
HINT_UTF8 is not propagated to the op tree anymore; add a
perlunicode.pod that reflects changes to unicode support so far
p4raw-id: //depot/perl@4941
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -2867,7 +2867,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, OP *repl) p = SvPV(pat, plen); pm->op_pmflags |= PMf_SKIPWHITE; } - else if (DO_UTF8(pat)) + if ((PL_hints & HINT_UTF8) || (SvUTF8(pat) && !(PL_hints & HINT_BYTE))) pm->op_pmdynflags |= PMdf_UTF8; pm->op_pmregexp = CALLREGCOMP(aTHX_ p, p + plen, pm); if (strEQ("\\s+", pm->op_pmregexp->precomp)) @@ -2875,6 +2875,8 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, OP *repl) 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 @@ -3401,7 +3403,7 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o) cop->op_ppaddr = PL_ppaddr[ OP_NEXTSTATE ]; } cop->op_flags = flags; - cop->op_private = (PL_hints & (HINT_UTF8|HINT_BYTE)); + cop->op_private = (PL_hints & HINT_BYTE); #ifdef NATIVE_HINTS cop->op_private |= NATIVE_HINTS; #endif |