diff options
author | Karl Williamson <khw@cpan.org> | 2015-09-08 09:53:48 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-09-08 10:05:56 -0600 |
commit | 5d1187d1639ce42a8a9283c8282136fa16d41e50 (patch) | |
tree | eba65a6d8c24661517f71fd3645c794411459d24 /proto.h | |
parent | 6b058d4267db1fda2ada9ef3729c7477bbfa07c6 (diff) | |
download | perl-5d1187d1639ce42a8a9283c8282136fa16d41e50.tar.gz |
Add code for debugging locale initialization
This initialization is done before the processing of command line
arguments, so that it has to be handled specially. This commit changes
the initialization code to output debugging information if the
environment variable PERL_DEBUG_LOCALE_INIT is set.
I don't see the need to document this outside the source, as anyone who
is using it would be reading the source anyway; it's of highly
specialized use.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -3828,6 +3828,12 @@ STATIC int S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp); #define PERL_ARGS_ASSERT_TOKEREPORT \ assert(lvalp) # endif +# if defined(USE_LOCALE) && (defined(PERL_IN_LOCALE_C) || defined (PERL_EXT_POSIX)) +PERL_CALLCONV char * Perl__setlocale_debug_string(const int category, const char* const locale, const char* const retval) + __attribute__warn_unused_result__ + __attribute__pure__; + +# endif #endif #if defined(DEBUG_LEAKING_SCALARS_FORK_DUMP) PERL_CALLCONV void Perl_dump_sv_child(pTHX_ SV *sv); |