This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
DynaLoader: use PerlEnv_getenv()
authorKarl Williamson <khw@cpan.org>
Sat, 7 Mar 2020 19:54:19 +0000 (12:54 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 29 Nov 2020 15:08:46 +0000 (08:08 -0700)
Doing so invokes thread-safe guards

ext/DynaLoader/DynaLoader_pm.PL
ext/DynaLoader/dlutils.c

index 86a1128..f68d59a 100644 (file)
@@ -88,7 +88,7 @@ package DynaLoader;
 # Tim.Bunce@ig.co.uk, August 1994
 
 BEGIN {
-    $VERSION = '1.48';
+    $VERSION = '1.49';
 }
 
 EOT
index 8584f89..1a27fbd 100644 (file)
@@ -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
     ) {