X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.c;h=8f53c3648e82958fee97778f5811d3d4f01d7efd;hb=806e72015c0c16d1c66452a28aa8fd6c6cc967c3;hp=46ffde5bff4721938ba9e7c3d0d92d2925e421d0;hpb=8d220878d77900dc1beb088892237bda615b1719;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.c b/perl.c
index 46ffde5..8f53c36 100644
--- a/perl.c
+++ b/perl.c
@@ -220,7 +220,7 @@ perl_construct(pTHXx)
 	PL_patchlevel = NEWSV(0,4);
 	SvUPGRADE(PL_patchlevel, SVt_PVNV);
 	if (PERL_REVISION > 127 || PERL_VERSION > 127 || PERL_SUBVERSION > 127)
-	    SvGROW(PL_patchlevel,24);
+	    SvGROW(PL_patchlevel, UTF8_MAXLEN*3+1);
 	s = (U8*)SvPVX(PL_patchlevel);
 	s = uv_to_utf8(s, (UV)PERL_REVISION);
 	s = uv_to_utf8(s, (UV)PERL_VERSION);