summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-12-24 17:13:16 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-12-24 17:13:16 +0000
commit880bd94600e718ff5c2052338897fe329f8bd085 (patch)
tree6d1040c1ca82a73ef504aac10f90acf23c546eed /regexec.c
parentcaf100c0e8381ae57ce80d1b127582238242fa5f (diff)
downloadperl-880bd94600e718ff5c2052338897fe329f8bd085.tar.gz
More constant casting.
p4raw-id: //depot/perl@13876
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/regexec.c b/regexec.c
index 7a00dfdd46..7b459e2d45 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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,