diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 17:04:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 17:04:34 +0000 |
| commit | 9e8f19525ca9c19680d011d38a5ca4b6fd03b8cc (patch) | |
| tree | 72602506be015030e20e91d27e569b52fdea0be8 /regcomp.c | |
| parent | 483dd22054d0fee2b8a26b1ba538ef258bd82a3d (diff) | |
| download | perl-9e8f19525ca9c19680d011d38a5ca4b6fd03b8cc.tar.gz | |
EBCDIC: character classes must remap the low 256.
p4raw-id: //depot/perl@14534
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4065,9 +4065,9 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state) STRLEN foldlen; UV f; - uvchr_to_utf8(tmpbuf, value); + uvchr_to_utf8(tmpbuf, NATIVE_TO_UNI(value)); to_utf8_fold(tmpbuf, foldbuf, &foldlen); - f = utf8_to_uvchr(foldbuf, 0); + f = UNI_TO_NATIVE(utf8_to_uvchr(foldbuf, 0)); /* If folding and foldable and a single * character, insert also the folded version |