In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ca81472c4bd9286992e89c470022cc79c0eb3739?hp=5d4cc4974c6e12ccacbb42c5a4936f5c722b9c94>
- Log ----------------------------------------------------------------- commit ca81472c4bd9286992e89c470022cc79c0eb3739 Author: Karl Williamson <[email protected]> Date: Mon Dec 21 21:29:12 2015 -0700 Deprecate to_utf8_case() See http://nntp.perl.org/group/perl.perl5.porters/233287 ----------------------------------------------------------------------- Summary of changes: embed.fnc | 2 +- proto.h | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/embed.fnc b/embed.fnc index dd764e1..2002d83 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1591,7 +1591,7 @@ EXMp |void |_invlist_dump |NN PerlIO *file|I32 level \ #endif Ap |void |taint_env Ap |void |taint_proper |NULLOK const char* f|NN const char *const s -Apd |UV |to_utf8_case |NN const U8 *p \ +ApdD |UV |to_utf8_case |NN const U8 *p \ |NN U8* ustrp \ |NULLOK STRLEN *lenp \ |NN SV **swashp \ diff --git a/proto.h b/proto.h index 9fb3ead..7d5ea26 100644 --- a/proto.h +++ b/proto.h @@ -3341,9 +3341,11 @@ PERL_CALLCONV U32 Perl_to_uni_upper_lc(pTHX_ U32 c) __attribute__warn_unused_result__ __attribute__pure__; -PERL_CALLCONV UV Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special); +PERL_CALLCONV UV Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special) + __attribute__deprecated__; #define PERL_ARGS_ASSERT_TO_UTF8_CASE \ assert(p); assert(ustrp); assert(swashp); assert(normal) + /* PERL_CALLCONV UV Perl_to_utf8_fold(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp); */ #define PERL_ARGS_ASSERT_TO_UTF8_FOLD \ assert(p); assert(ustrp) -- Perl5 Master Repository
