diff options
| author | Karl Williamson <khw@cpan.org> | 2018-02-13 13:12:50 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-02-18 15:44:23 -0700 |
| commit | 49d7d366441813aa7301b1a437e302372f04f31a (patch) | |
| tree | 619c3271adeeab23fe9ea25c9517ebf9807cc1fe /perlapi.h | |
| parent | 398eeea9cd1c8a9b95329a3eca8be6a2a5903ac5 (diff) | |
| download | perl-49d7d366441813aa7301b1a437e302372f04f31a.tar.gz | |
Latch LC_NUMERIC during critical sections
It is possible for operations on threaded perls which don't 'use locale'
to still change the locale. This happens when calling
POSIX::localeconv() and I18N::Langinfo(), and in earlier perls, it can
happen for other operations when perl has been initialized with the
environment causing the various locale categories to not have a uniform
locale.
This commit causes the areas where the locale for this category should
predictably be in one or the other state to be a critical section where
another thread can't interrupt and change it. This is a separate
mutex, so that only these particular operations will be held up.
Diffstat (limited to 'perlapi.h')
| -rw-r--r-- | perlapi.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -131,6 +131,8 @@ END_EXTERN_C #define PL_keyword_plugin (*Perl_Gkeyword_plugin_ptr(NULL)) #undef PL_keyword_plugin_mutex #define PL_keyword_plugin_mutex (*Perl_Gkeyword_plugin_mutex_ptr(NULL)) +#undef PL_lc_numeric_mutex +#define PL_lc_numeric_mutex (*Perl_Glc_numeric_mutex_ptr(NULL)) #undef PL_locale_mutex #define PL_locale_mutex (*Perl_Glocale_mutex_ptr(NULL)) #undef PL_malloc_mutex |