diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-24 17:13:16 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-24 17:13:16 +0000 |
commit | 880bd94600e718ff5c2052338897fe329f8bd085 (patch) | |
tree | 6d1040c1ca82a73ef504aac10f90acf23c546eed /regexec.c | |
parent | caf100c0e8381ae57ce80d1b127582238242fa5f (diff) | |
download | perl-880bd94600e718ff5c2052338897fe329f8bd085.tar.gz |
More constant casting.
p4raw-id: //depot/perl@13876
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -989,9 +989,9 @@ S_find_byclass(pTHX_ regexp * prog, regnode *c, char *s, char *strend, char *sta else { while (s <= e) { UV c = utf8_to_uvchr((U8*)s, &len); - if (c == UNICODE_GREEK_CAPITAL_LETTER_SIGMA || - c == UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA) - c = UNICODE_GREEK_SMALL_LETTER_SIGMA; + if (c == (UV)UNICODE_GREEK_CAPITAL_LETTER_SIGMA || + c == (UV)UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA) + c = (UV)UNICODE_GREEK_SMALL_LETTER_SIGMA; if ( (c == c1 || c == c2) && (ln == len || ibcmp_utf8(s, do_utf8, strend - s, |