Fix memory corruption when growing pack utf8 buffer

p4raw-id: //depot/perl@24011

1 files changed, 5 insertions, 5 deletions

diff --git a/pp_pack.c b/pp_pack.c
index c6e2d4ea04..6c9b92abe0 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -2917,17 +2917,17 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
 		fromstr = NEXTFROM;
 		  auv = SvUV(fromstr);
 		  if (utf8) {
-		      char buffer[UTF8_MAXLEN], *end;
-		      end = uvuni_to_utf8_flags(buffer, auv,
+		      char buffer[UTF8_MAXLEN], *endb;
+		      endb = uvuni_to_utf8_flags(buffer, auv,
 						     ckWARN(WARN_UTF8) ?
 						0 : UNICODE_ALLOW_ANY);
-		      if (cur >= end-(end-buffer)*2) {
+		      if (cur >= end-(endb-buffer)*2) {
 			  *cur = '\0';
 			  SvCUR(cat) = cur - start;
-			  GROWING(0, cat, start, cur, len+(end-buffer)*2);
+			  GROWING(0, cat, start, cur, len+(endb-buffer)*2);
 			  end = start+SvLEN(cat)-UTF8_MAXLEN;
 		      }
-		      bytes_to_uni(aTHX_ buffer, end-buffer, &cur);
+		      bytes_to_uni(aTHX_ buffer, endb-buffer, &cur);
 		  } else {
 		      if (cur >= end) {
 			  *cur = '\0';