diff options
author | Karl Williamson <khw@cpan.org> | 2019-03-18 19:27:57 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-03-19 10:24:28 -0600 |
commit | 18c47def0203efccddd268e8d0635c40247ce2fa (patch) | |
tree | 47cec4018a1c33bcc2c7445031ef6a47a10f15f1 /pp_pack.c | |
parent | cf70d9e66cc428b97f59d1cca621579346948015 (diff) | |
download | perl-18c47def0203efccddd268e8d0635c40247ce2fa.tar.gz |
pp_pack.c: Use safe UTF8SKIP
Diffstat (limited to 'pp_pack.c')
-rw-r--r-- | pp_pack.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -290,7 +290,7 @@ S_utf8_to_bytes(pTHX_ const char **s, const char *end, const char *buf, SSize_t if (from >= end) return FALSE; val = utf8n_to_uvchr((U8 *) from, end-from, &retlen, flags); if (retlen == (STRLEN) -1) { - from += UTF8SKIP(from); + from += UTF8_SAFE_SKIP(from, end); bad |= 1; } else from += retlen; if (val >= 0x100) { |