From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 1 Jun 2005 09:19:46 +0000 (+0000)
Subject: Following the head refactoring, the Newz doesn't clear the SvPVX
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cace1726e17065120ea0a72ecc23f9ee4c322248;p=p5sagit%2Fp5-mst-13.2.git

Following the head refactoring, the Newz doesn't clear the SvPVX
So PL_mess_sv contained an uninitialised value.

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

diff --git a/util.c b/util.c
index f80eb63..8b683a7 100644
--- a/util.c
+++ b/util.c
@@ -875,6 +875,7 @@ S_mess_alloc(pTHX)
     Newz(905, any, 1, XPVMG);
     SvFLAGS(sv) = SVt_PVMG;
     SvANY(sv) = (void*)any;
+    SvPV_set(sv, 0);
     SvREFCNT(sv) = 1 << 30; /* practically infinite */
     PL_mess_sv = sv;
     return sv;