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);