diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 17:29:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-03 17:29:57 +0000 |
| commit | 2c237f47c4de5c8e57791c6b441d4cc2dc74391d (patch) | |
| tree | f8dd94c1925f3eb5c2835662a98fc31770eee2bc /regexec.c | |
| parent | 9e8f19525ca9c19680d011d38a5ca4b6fd03b8cc (diff) | |
| download | perl-2c237f47c4de5c8e57791c6b441d4cc2dc74391d.tar.gz | |
EBCDIC: it's much nicer to compare Unicode code points
to Unicode code points.
p4raw-id: //depot/perl@14535
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2332,7 +2332,7 @@ S_regmatch(pTHX_ regnode *prog) if (l >= PL_regeol) sayNO; if (NATIVE_TO_UNI(*(U8*)s) != - utf8_to_uvchr((U8*)l, &ulen)) + utf8_to_uvuni((U8*)l, &ulen)) sayNO; l += ulen; s ++; @@ -2344,7 +2344,7 @@ S_regmatch(pTHX_ regnode *prog) if (l >= PL_regeol) sayNO; if (NATIVE_TO_UNI(*((U8*)l)) != - utf8_to_uvchr((U8*)s, &ulen)) + utf8_to_uvuni((U8*)s, &ulen)) sayNO; s += ulen; l ++; |