diff options
author | Karl Williamson <khw@cpan.org> | 2021-04-10 20:58:28 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-09-22 09:29:22 -0600 |
commit | 1e78b5ed5d9d1161bfe209fff53163f270c40151 (patch) | |
tree | bd8faaa96be8206c31e9aa2e48e72e9952520a9d /proto.h | |
parent | 90cc10b857a1bb71ca948ede120a70a1b0a1dd98 (diff) | |
download | perl-1e78b5ed5d9d1161bfe209fff53163f270c40151.tar.gz |
locale.c: Refactor internal debugging function
setlocale_debug_string() variants now use Perl_form, a function I
didn't know existed when I originally wrote this code.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5114,9 +5114,9 @@ STATIC void S_print_bytes_for_locale(pTHX_ const char * const s, const char * co # if defined(USE_LOCALE) STATIC const char * S_get_LC_ALL_display(pTHX); #define PERL_ARGS_ASSERT_GET_LC_ALL_DISPLAY -STATIC char * S_setlocale_debug_string_i(const unsigned cat_index, const char* const locale, const char* const retval) +STATIC char * S_my_setlocale_debug_string_i(pTHX_ const unsigned cat_index, const char* locale, const char* retval, const line_t line) __attribute__warn_unused_result__; -#define PERL_ARGS_ASSERT_SETLOCALE_DEBUG_STRING_I +#define PERL_ARGS_ASSERT_MY_SETLOCALE_DEBUG_STRING_I # if defined(USE_LOCALE_COLLATE) STATIC void S_print_collxfrm_input_and_return(pTHX_ const char * s, const char * e, const char * xbuf, const STRLEN xlen, const bool is_utf8); |