Purify finding: jperl.t causes a few Array Bounds Reads

(one byte too far in a malloced buffer) at various spots
in regcomp.c, all the buffers malloced by SvGROW() in
sv_recode_to_utf8().

p4raw-id: //depot/perl@16608

1 files changed, 2 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 13b548bd5e..5992a69b2f 100644
--- a/sv.c
+++ b/sv.c
@@ -10474,9 +10474,10 @@ Perl_sv_recode_to_utf8(pTHX_ SV *sv, SV *encoding)
 	  PUTBACK;
 	  s = SvPV(uni, len);
 	  if (s != SvPVX(sv)) {
-	       SvGROW(sv, len);
+	       SvGROW(sv, len + 1);
 	       Move(s, SvPVX(sv), len, char);
 	       SvCUR_set(sv, len);
+	       SvPVX(sv)[len] = 0;	
 	  }
 	  FREETMPS;
 	  LEAVE;