summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-03-14 21:08:54 -0600
committerKarl Williamson <khw@cpan.org>2018-03-16 14:09:42 -0600
commitbffa51e274b9427cea2942be2b0224defd7b2dac (patch)
treea5943ac0046005dff6fb942888bbb07bc7429f45 /sv.c
parent744ebf52f3e4ca5e41d9ce8bc68e10cae14592a0 (diff)
downloadperl-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.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/sv.c b/sv.c
index 1856ba37c1..1090384cd8 100644
--- a/sv.c
+++ b/sv.c
@@ -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;