Fix change #28533: my_strlcpy does not return the dest str!

p4raw-link: @28533 on //depot/perl: 6fca0082ec4f3b34a0dabc78331bad8c22489dd2

p4raw-id: //depot/perl@28545

1 files changed, 2 insertions, 1 deletions

diff --git a/util.c b/util.c
index 1bb7283491..be619a3a04 100644
--- a/util.c
+++ b/util.c
@@ -3054,7 +3054,8 @@ Perl_find_script(pTHX_ const char *scriptname, bool dosearch,
 		len = strlen(scriptname);
 		if (len+MAX_EXT_LEN+1 >= sizeof(tmpbuf))
 		    break;
-		cur = my_strlcpy(tmpbuf, scriptname, sizeof(tmpbuf));
+		my_strlcpy(tmpbuf, scriptname, sizeof(tmpbuf));
+		cur = tmpbuf;
 	    }
 	} while (extidx >= 0 && ext[extidx]	/* try an extension? */
 		 && my_strlcpy(tmpbuf+len, ext[extidx++], sizeof(tmpbuf) - len));