diff options
| author | Karl Williamson <khw@cpan.org> | 2016-12-19 11:12:48 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-12-23 22:36:34 -0700 |
| commit | a1a5ec35e6a3df0994b103aadb28a8c1a3a278da (patch) | |
| tree | e7e6198a1d898f38c302ee48ea3ef28594a2792d /pp.c | |
| parent | a239b1e291a3367448da17ea47c2f2aca5a07b69 (diff) | |
| download | perl-a1a5ec35e6a3df0994b103aadb28a8c1a3a278da.tar.gz | |
Convert core to use toFOO_utf8_safe()
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -3790,16 +3790,16 @@ PP(pp_ucfirst) ulen = UTF8SKIP(s); if (op_type == OP_UCFIRST) { #ifdef USE_LOCALE_CTYPE - _toTITLE_utf8_flags(s, tmpbuf, &tculen, IN_LC_RUNTIME(LC_CTYPE)); + _toTITLE_utf8_flags(s, s +slen, tmpbuf, &tculen, IN_LC_RUNTIME(LC_CTYPE)); #else - _toTITLE_utf8_flags(s, tmpbuf, &tculen, 0); + _toTITLE_utf8_flags(s, s +slen, tmpbuf, &tculen, 0); #endif } else { #ifdef USE_LOCALE_CTYPE - _toLOWER_utf8_flags(s, tmpbuf, &tculen, IN_LC_RUNTIME(LC_CTYPE)); + _toLOWER_utf8_flags(s, s + slen, tmpbuf, &tculen, IN_LC_RUNTIME(LC_CTYPE)); #else - _toLOWER_utf8_flags(s, tmpbuf, &tculen, 0); + _toLOWER_utf8_flags(s, s + slen, tmpbuf, &tculen, 0); #endif } @@ -4090,9 +4090,9 @@ PP(pp_uc) u = UTF8SKIP(s); #ifdef USE_LOCALE_CTYPE - uv = _toUPPER_utf8_flags(s, tmpbuf, &ulen, IN_LC_RUNTIME(LC_CTYPE)); + uv = _toUPPER_utf8_flags(s, send, tmpbuf, &ulen, IN_LC_RUNTIME(LC_CTYPE)); #else - uv = _toUPPER_utf8_flags(s, tmpbuf, &ulen, 0); + uv = _toUPPER_utf8_flags(s, send, tmpbuf, &ulen, 0); #endif #define GREEK_CAPITAL_LETTER_IOTA 0x0399 #define COMBINING_GREEK_YPOGEGRAMMENI 0x0345 @@ -4306,9 +4306,9 @@ PP(pp_lc) STRLEN ulen; #ifdef USE_LOCALE_CTYPE - _toLOWER_utf8_flags(s, tmpbuf, &ulen, IN_LC_RUNTIME(LC_CTYPE)); + _toLOWER_utf8_flags(s, send, tmpbuf, &ulen, IN_LC_RUNTIME(LC_CTYPE)); #else - _toLOWER_utf8_flags(s, tmpbuf, &ulen, 0); + _toLOWER_utf8_flags(s, send, tmpbuf, &ulen, 0); #endif /* Here is where we would do context-sensitive actions. See the @@ -4516,7 +4516,7 @@ PP(pp_fc) const STRLEN u = UTF8SKIP(s); STRLEN ulen; - _toFOLD_utf8_flags(s, tmpbuf, &ulen, flags); + _toFOLD_utf8_flags(s, send, tmpbuf, &ulen, flags); if (ulen > u && (SvLEN(dest) < (min += ulen - u))) { const UV o = d - (U8*)SvPVX_const(dest); |