diff options
author | Karl Williamson <khw@cpan.org> | 2018-03-09 11:27:28 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-03-12 10:22:01 -0600 |
commit | 423a80b7c64953ef2d8696dae9f0bd751f996893 (patch) | |
tree | 8fca4e5eca03c8560d22ac39742438bd441e9953 | |
parent | 8d72e74e3dc5017c5a3fade48e0c74109c297ebc (diff) | |
download | perl-423a80b7c64953ef2d8696dae9f0bd751f996893.tar.gz |
Don't create unneeded mutexes
These mutexes are needed only for unsafe threaded-locale operations.
-rw-r--r-- | makedef.pl | 5 | ||||
-rw-r--r-- | perlvars.h | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/makedef.pl b/makedef.pl index 06c647fc2c..626d990744 100644 --- a/makedef.pl +++ b/makedef.pl @@ -436,6 +436,11 @@ unless ($define{'PERL_IMPLICIT_CONTEXT'}) { ); } +if (${^SAFE_LOCALES}) { + ++$skip{PL_locale_mutex}; + ++$skip{PL_lc_numeric_mutex}; +} + unless ($define{'PERL_OP_PARENT'}) { ++$skip{$_} foreach qw( Perl_op_parent diff --git a/perlvars.h b/perlvars.h index be67a59988..0f2e3475d3 100644 --- a/perlvars.h +++ b/perlvars.h @@ -99,9 +99,10 @@ PERLVARI(G, mmap_page_size, IV, 0) #if defined(USE_ITHREADS) PERLVAR(G, hints_mutex, perl_mutex) /* Mutex for refcounted he refcounting */ +#ifndef USE_THREAD_SAFE_LOCALE PERLVAR(G, locale_mutex, perl_mutex) /* Mutex for setlocale() changing */ PERLVAR(G, lc_numeric_mutex, perl_mutex) /* Mutex for switching LC_NUMERIC */ - +# endif #endif /* Proxy for HAS_POSIX_2008_LOCALE, since that is not defined in time for this */ |