diff options
| author | Andreas König <a.koenig@mind.de> | 2002-01-08 15:12:29 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-08 15:12:38 +0000 |
| commit | 5b71a6a7d9a57910f8176799ca3a0c2e2cc65133 (patch) | |
| tree | 8617684f59c594cccbee983e007ab31c1f58dcf3 /op.c | |
| parent | 9cd90f7bf71369f3b9527136c154bd38b3d6b49e (diff) | |
| download | perl-5b71a6a7d9a57910f8176799ca3a0c2e2cc65133.tar.gz | |
Not OK 13843
Message-ID: <m38zb9c7gi.fsf@anima.de>
p4raw-id: //depot/perl@14135
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -3131,7 +3131,7 @@ 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)) + 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)) @@ -3139,8 +3139,6 @@ 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 |