Convert strcpy to memcpy where we already know the length.

p4raw-id: //depot/perl@25007

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index c2d85721a0..96a1e88f43 100644
--- a/sv.c
+++ b/sv.c
@@ -3308,7 +3308,7 @@ Perl_sv_2pv_flags(pTHX_ register SV *sv, STRLEN *lp, I32 flags)
 	s = SvGROW_mutable(sv, len + 1);
 	SvCUR_set(sv, len);
 	SvPOKp_on(sv);
-	return strcpy(s, t);
+	return memcpy(s, t, len + 1);
     }
 }