From cfff97972660a620adf7d1f4616e4a60f0c7dd32 Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Fri, 12 Oct 2007 15:21:14 +0000 Subject: Remove some strlen()s and replace one strlcpy() with memcpy() because we already know the string length. p4raw-id: //depot/perl@32105 --- doio.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'doio.c') 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++; -- cgit v1.2.1