diff options
author | Karl Williamson <khw@cpan.org> | 2018-02-05 22:11:51 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-02-18 15:44:23 -0700 |
commit | e9bc6d6b34afc0063cc5181b59f77eeb81b1182d (patch) | |
tree | 1028b01c95db9ebdc6d78340ca1f00aad07fe922 /intrpvar.h | |
parent | ddd5ebe0cadc81a0360ad8007674490fda89ee88 (diff) | |
download | perl-e9bc6d6b34afc0063cc5181b59f77eeb81b1182d.tar.gz |
Add thread-safe locale handling
This (large) commit allows locales to be used in threaded perls on
platforms that support it. This includes recent Windows and Posix 2008
ones.
Diffstat (limited to 'intrpvar.h')
-rw-r--r-- | intrpvar.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index dec6fa93c6..466785b882 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -576,7 +576,15 @@ PERLVAR(I, constpadix, PADOFFSET) /* lowest unused for constants */ PERLVAR(I, padix_floor, PADOFFSET) /* how low may inner block reset padix */ +#if defined(USE_POSIX_2008_LOCALE) \ + && defined(USE_THREAD_SAFE_LOCALE) \ + && ! defined(HAS_QUERYLOCALE) + +PERLVARA(I, curlocales, 12, char *) + +#endif #ifdef USE_LOCALE_COLLATE + PERLVAR(I, collation_name, char *) /* Name of current collation */ PERLVAR(I, collxfrm_base, Size_t) /* Basic overhead in *xfrm() */ PERLVARI(I, collxfrm_mult,Size_t, 2) /* Expansion factor in *xfrm() */ |