diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-30 21:12:25 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-30 21:12:25 +0000 |
commit | 2ddfca77c091e81a547f3b4f6325ece2309ec9f0 (patch) | |
tree | 16102c2e9752216eab9ab35b563e9782502ed95e /regcomp.c | |
parent | 254ba52af7d39101b8ee76681bf95a1a95ebd042 (diff) | |
download | perl-2ddfca77c091e81a547f3b4f6325ece2309ec9f0.tar.gz |
Fix all the I case foldings as per CaseFold.txt.
p4raw-id: //depot/perl@13964
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -3991,7 +3991,8 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state) UV f; uvchr_to_utf8(tmpbuf, value); - f = to_utf8_fold(tmpbuf, foldbuf, &foldlen); + to_utf8_fold(tmpbuf, foldbuf, &foldlen); + f = utf8_to_uvchr(foldbuf, 0); if (f != value) Perl_sv_catpvf(aTHX_ listsv, "%04"UVxf"\n", f); |