summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-02-01 20:29:30 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-02-01 20:29:30 +0000
commit393fec973b1b95a178b4b9600173880d9f93debf (patch)
treec3d4ec71f5df9352cf1aba3acb8afd24acb9ebe3 /regexec.c
parenta86f0dc98a98470272f57769cfd209896e37a52f (diff)
downloadperl-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 'regexec.c')
-rw-r--r--regexec.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/regexec.c b/regexec.c
index acdbd890ae..106c5d1d76 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2335,6 +2335,7 @@ S_regmatch(pTHX_ regnode *prog)
I32 onpar = PL_regnpar;
pm.op_pmflags = 0;
+ pm.op_pmdynflags = (UTF||DO_UTF8(ret) ? PMdf_UTF8 : 0);
re = CALLREGCOMP(aTHX_ t, t + len, &pm);
if (!(SvFLAGS(ret)
& (SVs_TEMP | SVs_PADTMP | SVf_READONLY)))