Remove some strlen()s and replace one strlcpy() with memcpy() because

we already know the string length.

p4raw-id: //depot/perl@32105

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 65adf910d5..8d7c812767 100644
--- a/doio.c
+++ b/doio.c
@@ -1439,7 +1439,7 @@ Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report)
     const Size_t cmdlen = strlen(incmd) + 1;
     Newx(buf, cmdlen, char);
     cmd = buf;
-    my_strlcpy(cmd, incmd, cmdlen);
+    memcpy(cmd, incmd, cmdlen);
 
     while (*cmd && isSPACE(*cmd))
 	cmd++;