This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Don't include interpreter variable unless used
[perl5.git] / sv.c
diff --git a/sv.c b/sv.c
index 1856ba3..1090384 100644 (file)
--- 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;