X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=util.c;h=7a3be16a09f2074b917224dabadd78e5406477c4;hb=28f0d0ec424c9050a6c7d38541d2e6b5e66fb97c;hp=6e291d310f966d2ee16d92c3333eb65fdc3a75a4;hpb=0bec6c03caec93aa207fcfeff506a7c46c7019e9;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/util.c b/util.c
index 6e291d3..7a3be16 100644
--- a/util.c
+++ b/util.c
@@ -3118,13 +3118,7 @@ Perl_find_script(pTHX_ const char *scriptname, bool dosearch,
 	    if (len == 2 && tmpbuf[0] == '.')
 		seen_dot = 1;
 #endif
-#ifdef HAS_STRLCAT
-	    (void)strlcpy(tmpbuf + len, scriptname, sizeof(tmpbuf) - len);
-#else
-	    /* FIXME? Convert to memcpy by storing previous strlen(scriptname)
-	     */
-	    (void)strcpy(tmpbuf + len, scriptname);
-#endif /* #ifdef HAS_STRLCAT */
+	    (void)my_strlcpy(tmpbuf + len, scriptname, sizeof(tmpbuf) - len);
 #endif  /* !VMS */
 
 #ifdef SEARCH_EXTS