diff options
| author | Inaba Hiroto <inaba@st.rim.or.jp> | 2002-11-17 04:23:00 +0900 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-11-25 03:06:44 +0000 |
| commit | 0e933229fa7586258708edba9d57af3dee7f48c0 (patch) | |
| tree | 9376a7e4197dff4ff548c0e6ee88e374a96feac4 /regcomp.c | |
| parent | 87baa35a563d45b9921650f6d6957f8ce4f33b49 (diff) | |
| download | perl-0e933229fa7586258708edba9d57af3dee7f48c0.tar.gz | |
UTF8 regexp {n} bug
Message-ID: <3DD61C83.62FF9887@st.rim.or.jp>
p4raw-id: //depot/perl@18179
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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) { |