In Perl_my_clearenv(), under -DPERL_USE_SAFE_PUTENV, don't use

strlcpy() to forcibly truncate a string to a known length, when
memcpy() and a write of '\0' will not only make the intent clear, but
also do that exact job more efficiently.

p4raw-id: //depot/perl@32125

1 files changed, 2 insertions, 1 deletions

diff --git a/util.c b/util.c
index 83a6709494..f75e5a79e2 100644
--- a/util.c
+++ b/util.c
@@ -5685,7 +5685,8 @@ Perl_my_clearenv(pTHX)
         bsiz = l + 1; /* + 1 for the \0. */
         buf = (char*)safesysmalloc(bufsiz);
       } 
-      my_strlcpy(buf, *environ, l + 1);
+      memcpy(buf, *environ, l);
+      buf[l] = '\0';
       (void)unsetenv(buf);
     }
     (void)safesysfree(buf);