From ab72b7bd043df0f0ad6090a4c95f378624fad9fc Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sat, 7 Mar 2020 12:54:19 -0700 Subject: [PATCH] DynaLoader: use PerlEnv_getenv() MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Doing so invokes thread-safe guards Petr Písař: Ported from b0312014d6c1804920d2b687a5fa5645b445ce9f to 5.32.1. Signed-off-by: Petr Písař --- ext/DynaLoader/dlutils.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ext/DynaLoader/dlutils.c b/ext/DynaLoader/dlutils.c index 8584f89..1a27fbd 100644 --- a/ext/DynaLoader/dlutils.c +++ b/ext/DynaLoader/dlutils.c @@ -115,7 +115,7 @@ dl_generic_private_init(pTHX) /* called by dl_*.xs dl_private_init() */ #endif #if defined(PERL_IN_DL_HPUX_XS) || defined(PERL_IN_DL_DLOPEN_XS) - if ( (perl_dl_nonlazy = getenv("PERL_DL_NONLAZY")) != NULL + if ( (perl_dl_nonlazy = PerlEnv_getenv("PERL_DL_NONLAZY")) != NULL && grok_atoUV(perl_dl_nonlazy, &uv, NULL) && uv <= INT_MAX ) { -- 2.26.2