diff options
author | Karl Williamson <khw@cpan.org> | 2022-12-12 19:51:40 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2023-01-12 17:42:00 -0700 |
commit | 65be4a0ded9e67be17d2c559c1c0dc8d3d746ed6 (patch) | |
tree | 838d3a8923554b997c8b033d79c64170a11007f1 /embed.h | |
parent | 2dc676e9ce23feb0ae948ea62f7e4301931d2188 (diff) | |
download | perl-65be4a0ded9e67be17d2c559c1c0dc8d3d746ed6.tar.gz |
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.
Diffstat (limited to 'embed.h')
-rw-r--r-- | embed.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1645,6 +1645,9 @@ # define padlist_dup(a,b) Perl_padlist_dup(aTHX_ a,b) # define padname_dup(a,b) Perl_padname_dup(aTHX_ a,b) # define padnamelist_dup(a,b) Perl_padnamelist_dup(aTHX_ a,b) +# if !defined(PERL_IMPLICIT_SYS) +# define PerlEnv_putenv(a) Perl_PerlEnv_putenv(aTHX_ a) +# endif /* !defined(PERL_IMPLICIT_SYS) */ # endif /* defined(USE_ITHREADS) */ # if defined(USE_LOCALE_COLLATE) # define magic_freecollxfrm(a,b) Perl_magic_freecollxfrm(aTHX_ a,b) |