35 lines
1.1 KiB
Diff
35 lines
1.1 KiB
Diff
From ab72b7bd043df0f0ad6090a4c95f378624fad9fc Mon Sep 17 00:00:00 2001
|
|
From: Karl Williamson <khw@cpan.org>
|
|
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ř <ppisar@redhat.com>
|
|
---
|
|
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
|
|
|