diff options
author | Karl Williamson <khw@cpan.org> | 2018-03-14 21:08:54 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-03-16 14:09:42 -0600 |
commit | bffa51e274b9427cea2942be2b0224defd7b2dac (patch) | |
tree | a5943ac0046005dff6fb942888bbb07bc7429f45 /sv.c | |
parent | 744ebf52f3e4ca5e41d9ce8bc68e10cae14592a0 (diff) | |
download | perl-bffa51e274b9427cea2942be2b0224defd7b2dac.tar.gz |
Don't include interpreter variable unless used
This adds an #ifdef around this variable, so that it isn't defined
unless used.
Spotted by Daniel Dragan.
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -15236,7 +15236,9 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_in_utf8_CTYPE_locale = proto_perl->Iin_utf8_CTYPE_locale; PL_in_utf8_COLLATE_locale = proto_perl->Iin_utf8_COLLATE_locale; my_strlcpy(PL_locale_utf8ness, proto_perl->Ilocale_utf8ness, sizeof(PL_locale_utf8ness)); +#if defined(USE_ITHREADS) && ! defined(USE_THREAD_SAFE_LOCALE) PL_lc_numeric_mutex_depth = 0; +#endif /* Unicode features (see perlrun/-C) */ PL_unicode = proto_perl->Iunicode; |