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 /intrpvar.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 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 884fa87dc6..dec6fa93c6 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -262,6 +262,7 @@ PERLVAR(I, exit_flags, U8) /* was exit() unexpected, etc. */ PERLVAR(I, utf8locale, bool) /* utf8 locale detected */ PERLVAR(I, in_utf8_CTYPE_locale, bool) PERLVAR(I, in_utf8_COLLATE_locale, bool) +PERLVARI(I, lc_numeric_mutex_depth, int, 0) /* Emulate general semaphore */ PERLVARA(I, locale_utf8ness, 256, char) #ifdef USE_LOCALE_CTYPE |