From 929e12133425199fce3fe026156c10876ac0cbb8 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 6 Apr 2016 21:46:28 -0600 Subject: Add locale mutex This adds a new mutex for use in the next commit for use with locale handling. --- perl.h | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'perl.h') diff --git a/perl.h b/perl.h index fd716c39ac..49330d1aed 100644 --- a/perl.h +++ b/perl.h @@ -5954,6 +5954,10 @@ typedef struct am_table_short AMTS; #ifdef USE_LOCALE /* These locale things are all subject to change */ + +# define LOCALE_INIT MUTEX_INIT(&PL_locale_mutex) +# define LOCALE_TERM MUTEX_DESTROY(&PL_locale_mutex) + /* Returns TRUE if the plain locale pragma without a parameter is in effect */ # define IN_LOCALE_RUNTIME cBOOL(CopHINTS_get(PL_curcop) & HINT_LOCALE) @@ -6037,6 +6041,8 @@ typedef struct am_table_short AMTS; # endif /* PERL_CORE or PERL_IN_XSUB_RE */ #else /* No locale usage */ +# define LOCALE_INIT +# define LOCALE_TERM # define IN_LOCALE_RUNTIME 0 # define IN_SOME_LOCALE_FORM_RUNTIME 0 # define IN_LOCALE_COMPILETIME 0 -- cgit v1.2.1