summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-03-16 16:40:06 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-03-16 16:40:06 +0000
commit5e43f4674257b58e1586fd5e88cdab2ae2f833ee (patch)
tree33dc7d8567c336a0d61488ba0b168165e8189fe9 /regcomp.c
parent2499d3299d5b988dc734ee240003b6eb71752236 (diff)
downloadperl-5e43f4674257b58e1586fd5e88cdab2ae2f833ee.tar.gz
Signedness nits.
p4raw-id: //depot/perl@18995
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/regcomp.c b/regcomp.c
index c738714acf..2f1f4e354f 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -925,8 +925,8 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, I32 *deltap, reg
MAGIC *mg = SvUTF8(sv) && SvMAGICAL(sv) ?
mg_find(sv, PERL_MAGIC_utf8) : NULL;
if (mg && mg->mg_len >= 0)
- mg->mg_len += utf8_length(STRING(scan),
- STRING(scan)+STR_LEN(scan));
+ mg->mg_len += utf8_length((U8*)STRING(scan),
+ (U8*)STRING(scan)+STR_LEN(scan));
}
if (UTF)
SvUTF8_on(data->last_found);