From 0e933229fa7586258708edba9d57af3dee7f48c0 Mon Sep 17 00:00:00 2001 From: Inaba Hiroto Date: Sun, 17 Nov 2002 04:23:00 +0900 Subject: UTF8 regexp {n} bug Message-ID: <3DD61C83.62FF9887@st.rim.or.jp> p4raw-id: //depot/perl@18179 --- regcomp.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'regcomp.c') diff --git a/regcomp.c b/regcomp.c index 6b35e3904b..50219d9a81 100644 --- a/regcomp.c +++ b/regcomp.c @@ -1270,6 +1270,8 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, I32 *deltap, reg l -= old; /* Get the added string: */ last_str = newSVpvn(s + old, l); + if (UTF) + SvUTF8_on(last_str); if (deltanext == 0 && pos_before == b) { /* What was added is a constant string */ if (mincount > 1) { -- cgit v1.2.1