In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5f04a188f28cd870c5b5d8c805befaab4126fb6c?hp=2726666d48c2d6d699d0a840da6e9f7a2fdfde22>
- Log ----------------------------------------------------------------- commit 5f04a188f28cd870c5b5d8c805befaab4126fb6c Author: Karl Williamson <[email protected]> Date: Tue Jan 13 12:53:34 2015 -0700 locale.c: Add comment; move #if A better comment is added. The #if is moved so that the rare compilation that doesn't use LC_CTYPE, no unused variable warning would be generated. ----------------------------------------------------------------------- Summary of changes: locale.c | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/locale.c b/locale.c index e267c98..1ef1be9 100644 --- a/locale.c +++ b/locale.c @@ -416,12 +416,15 @@ Perl_new_ctype(pTHX_ const char *newctype) void Perl__warn_problematic_locale() { - dTHX; - - /* Outputs the message in PL_warn_locale, and then NULLS it */ #ifdef USE_LOCALE_CTYPE + dTHX; + + /* Internal-to-core function that outputs the message in PL_warn_locale, + * and then NULLS it. Should be called only through the macro + * _CHECK_AND_WARN_PROBLEMATIC_LOCALE */ + if (PL_warn_locale) { /*GCC_DIAG_IGNORE(-Wformat-security); Didn't work */ Perl_ck_warner(aTHX_ packWARN(WARN_LOCALE), -- Perl5 Master Repository
