summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2015-09-08 09:53:48 -0600
committerKarl Williamson <khw@cpan.org>2015-09-08 10:05:56 -0600
commit5d1187d1639ce42a8a9283c8282136fa16d41e50 (patch)
treeeba65a6d8c24661517f71fd3645c794411459d24 /proto.h
parent6b058d4267db1fda2ada9ef3729c7477bbfa07c6 (diff)
downloadperl-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.h6
1 files changed, 6 insertions, 0 deletions
diff --git a/proto.h b/proto.h
index 0f4e7a0377..4d3465f568 100644
--- a/proto.h
+++ b/proto.h
@@ -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);