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 /regexec.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 'regexec.c')
| -rw-r--r-- | regexec.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -995,8 +995,9 @@ S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *sta UV f; uvchr_to_utf8(tmpbuf, c); - f = to_utf8_fold(tmpbuf, foldbuf, &foldlen); - + to_utf8_fold(tmpbuf, foldbuf, &foldlen); + f = utf8_to_uvchr(foldbuf, 0); + if (c == (UV)UNICODE_GREEK_CAPITAL_LETTER_SIGMA || c == (UV)UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA) c = (UV)UNICODE_GREEK_SMALL_LETTER_SIGMA; |