diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-03-19 15:38:06 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-03-19 18:23:44 -0600 |
| commit | 4b88fb76efce8c436e63b907c9842345d4fa77c7 (patch) | |
| tree | 67d8be3146bf0c32e93bd8209c141ed72c5a0ae2 /ext/XS-APItest/APItest.xs | |
| parent | 27d6c58a7e12243bef66c58b38e7d1415d9ca07e (diff) | |
| download | perl-4b88fb76efce8c436e63b907c9842345d4fa77c7.tar.gz | |
Use the new utf8 to code point functions
These functions should be used in preference to the old ones which can
read beyond the end of the input string.
Diffstat (limited to 'ext/XS-APItest/APItest.xs')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 6e8689c107..51059608b2 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -148,7 +148,7 @@ bitflip_key(pTHX_ IV action, SV *field) { const char *const end = p + len; while (p < end) { STRLEN len; - UV chr = utf8_to_uvuni((U8 *)p, &len); + UV chr = utf8_to_uvuni_buf((U8 *)p, (U8 *) end, &len); new_p = (char *)uvuni_to_utf8((U8 *)new_p, chr ^ 32); p += len; } |