mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Check for NULL locale in S_emulate_setlocale

Browse Source 
gcc-11.2.0 correctly warns that it is called with NULL from
Perl_switch_to_global_locale().
This commit is contained in:
Hugo van der Sanden 2021-09-12 10:39:53 +01:00 committed by Karl Williamson
parent 0016477142
commit e0f95237e4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
locale.c
View File

@ -553,12 +553,13 @@ S_emulate_setlocale(const int category,
int mask;
locale_t old_obj;
locale_t new_obj;
const char * safelocale = locale ? locale : "(null)";
dTHX;
# ifdef DEBUGGING
if (DEBUG_Lv_TEST || debug_initialization) {
PerlIO_printf(Perl_debug_log, "%s:%d: emulate_setlocale input=%d (%s), \"%s\", %d, %d\n", __FILE__, __LINE__, category, category_name(category), locale, index, is_index_valid);
PerlIO_printf(Perl_debug_log, "%s:%d: emulate_setlocale input=%d (%s), \"%s\", %d, %d\n", __FILE__, __LINE__, category, category_name(category), safelocale, index, is_index_valid);
}
# endif
@ -586,7 +587,7 @@ S_emulate_setlocale(const int category,
* Fallback to the early POSIX usages */
Perl_warner(aTHX_ packWARN(WARN_LOCALE),
"Unknown locale category %d; can't set it to %s\n",
category, locale);
category, safelocale);
return NULL;
found_index: ;