This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add GETENV_LOCK
[perl5.git] / inline.h
index c186372..dbfb89a 100644 (file)
--- a/inline.h
+++ b/inline.h
@@ -2654,7 +2654,7 @@ Perl_mortal_getenv(const char * str)
         return getenv(str);
     }
 
-    ENV_LOCK;
+    GETENV_LOCK;
 
     ret = getenv(str);
 
@@ -2662,7 +2662,8 @@ Perl_mortal_getenv(const char * str)
         ret = SvPVX(sv_2mortal(newSVpv(ret, 0)));
     }
 
-    ENV_UNLOCK;
+    GETENV_UNLOCK;
+
     return ret;
 }