X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/2bc5f86adf5f1c0feb76d83e1a627e5649e6beab..24f3e849b5ce9f3bf6b6be5d3e730562e927aa79:/util.c?ds=sidebyside

diff --git a/util.c b/util.c
index f3acdfe..33e60b4 100644
--- a/util.c
+++ b/util.c
@@ -2139,7 +2139,8 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
 #    endif
 
 #    ifdef USE_ITHREADS
-  /* only parent thread can modify process environment */
+  /* only parent thread can modify process environment, so no need to use a
+   * mutex */
   if (PL_curinterp == aTHX)
 #    endif
   {
@@ -5169,7 +5170,8 @@ Perl_my_clearenv(pTHX)
 #  else /* ! (PERL_IMPLICIT_SYS || WIN32) */
 #    if defined(USE_ENVIRON_ARRAY)
 #      if defined(USE_ITHREADS)
-    /* only the parent thread can clobber the process environment */
+    /* only the parent thread can clobber the process environment, so no need
+     * to use a mutex */
     if (PL_curinterp == aTHX)
 #      endif /* USE_ITHREADS */
     {