From 65be4a0ded9e67be17d2c559c1c0dc8d3d746ed6 Mon Sep 17 00:00:00 2001
From: Karl Williamson <khw@cpan.org>
Date: Mon, 12 Dec 2022 19:51:40 -0700
Subject: Fix PerlEnv_putenv threaded compilation on Windows

A second compilation of a workspace would fail.  The first one would
succeed because miniperl was being used, which isn't threaded.
---
 proto.h | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'proto.h')

diff --git a/proto.h b/proto.h
index b7379b0279..bcba9e889c 100644
--- a/proto.h
+++ b/proto.h
@@ -6195,6 +6195,13 @@ Perl_my_popen(pTHX_ const char *cmd, const char *mode);
 # define PERL_ARGS_ASSERT_MY_POPEN              \
         assert(cmd); assert(mode)
 
+# if defined(USE_ITHREADS)
+STATIC bool
+Perl_PerlEnv_putenv(pTHX_ char *str);
+#   define PERL_ARGS_ASSERT_PERLENV_PUTENV      \
+        assert(str)
+
+# endif /* defined(USE_ITHREADS) */
 #endif /* !defined(PERL_IMPLICIT_SYS) */
 #if defined(PERL_IN_AV_C)
 STATIC MAGIC *
-- 
cgit v1.2.1