From: Steve Hay <SteveHay@planit.com>
Date: Tue, 11 Jul 2006 11:26:17 +0000 (+0000)
Subject: Fix change #28533: my_strlcpy does not return the dest str!
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9e4425f7401960922972922c0fbf30ed45522d5e;p=p5sagit%2Fp5-mst-13.2.git

Fix change #28533: my_strlcpy does not return the dest str!
p4raw-link: @28533 on //depot/perl: 6fca0082ec4f3b34a0dabc78331bad8c22489dd2

p4raw-id: //depot/perl@28545
---

diff --git a/util.c b/util.c
index 1bb7283..be619a3 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));