diff options
author | Karl Williamson <khw@cpan.org> | 2020-02-15 11:15:09 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2020-02-19 18:22:53 -0700 |
commit | 86a5062a9c511e105120e7902a13b2167b830528 (patch) | |
tree | c8e99b63ca6029c4f77b2d829e7c0f8f8327fb8a /cpan/Encode | |
parent | 4208b378031bca5deb79d0bdb058a142d219134a (diff) | |
download | perl-86a5062a9c511e105120e7902a13b2167b830528.tar.gz |
Move some obsolete UTF-8 handling fcns to mathoms
Two of the functions are internal to the core; the third has long been
deprecated.
Diffstat (limited to 'cpan/Encode')
-rw-r--r-- | cpan/Encode/Encode.pm | 2 | ||||
-rw-r--r-- | cpan/Encode/Encode.xs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/cpan/Encode/Encode.pm b/cpan/Encode/Encode.pm index 6f8d85949a..3487daabe1 100644 --- a/cpan/Encode/Encode.pm +++ b/cpan/Encode/Encode.pm @@ -7,7 +7,7 @@ use warnings; use constant DEBUG => !!$ENV{PERL_ENCODE_DEBUG}; our $VERSION; BEGIN { - $VERSION = sprintf "%d.%02d", q$Revision: 3.02 $ =~ /(\d+)/g; + $VERSION = sprintf "%d.%02d", q$Revision: 3.03 $ =~ /(\d+)/g; require XSLoader; XSLoader::load( __PACKAGE__, $VERSION ); } diff --git a/cpan/Encode/Encode.xs b/cpan/Encode/Encode.xs index 0d66ec36d9..823917ca71 100644 --- a/cpan/Encode/Encode.xs +++ b/cpan/Encode/Encode.xs @@ -231,7 +231,7 @@ encode_method(pTHX_ const encode_t * enc, const encpage_t * dir, SV * src, U8 * if (dir == enc->f_utf8) { STRLEN clen; UV ch = - utf8n_to_uvuni(s+slen, (tlen-sdone-slen), + utf8n_to_uvchr(s+slen, (tlen-sdone-slen), &clen, UTF8_ALLOW_ANY|UTF8_CHECK_ONLY); /* if non-representable multibyte prefix at end of current buffer - break*/ if (clen > tlen - sdone - slen) break; |