commit 0289065e41ce3148f929e16a55aa3b161c80576f
author Bram Moolenaar <Bram@vim.org> Sat Oct 31 13:05:11 2020 +0100
committer Bram Moolenaar <Bram@vim.org> Sat Oct 31 13:05:11 2020 +0100
tree 1dc1359a380d567b437484fba740d2375104b2a7
parent cd030c4b604bea92311e9c418aefe5143dee9201

patch 8.2.1929: MS-Windows: problem loading Perl 5.32

Problem:    MS-Windows: problem loading Perl 5.32.
Solution:   Define NO_THREAD_SAFE_LOCALE. (Ken Takata, closes #7234)

src/if_perl.xs

diff --git a/src/if_perl.xs b/src/if_perl.xs
index e54a79d..999dff5 100644
--- a/src/if_perl.xs
+++ b/src/if_perl.xs
@@ -44,12 +44,13 @@
 # define PERL_NO_INLINE_FUNCTIONS
 #endif
 
-/* Work around for using MSVC and ActivePerl 5.18. */
 #ifdef _MSC_VER
+// Work around for using MSVC and ActivePerl 5.18.
 # define __inline__ __inline
-
 // Work around for using MSVC and Strawberry Perl 5.30.
 # define __builtin_expect(expr, val) (expr)
+// Work around for using MSVC and Strawberry Perl 5.32.
+# define NO_THREAD_SAFE_LOCALE
 #endif
 
 #ifdef __GNUC__