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)

diff --git a/src/if_perl.xs b/src/if_perl.xs
index e54a79d2b30d460d5e06f7805b80edb553d2f956..999dff50ec4ac8e359e2db8d7d95a3999a042701 100644 (file)
--- 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__

diff --git a/src/version.c b/src/version.c
index 65040460f170e50564b61c26429886d9245b76d9..9f23c1d2e5e56ffca98c8f181b48df5bffc5eb3a 100644 (file)
--- a/src/version.c
+++ b/src/version.c
@@ -750,6 +750,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    1929,
 /**/
     1928,
 /**/