summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-12-30 21:12:25 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-12-30 21:12:25 +0000
commit2ddfca77c091e81a547f3b4f6325ece2309ec9f0 (patch)
tree16102c2e9752216eab9ab35b563e9782502ed95e /regcomp.c
parent254ba52af7d39101b8ee76681bf95a1a95ebd042 (diff)
downloadperl-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.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index c537eaadbd..b061991342 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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);