summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2005-06-01 09:19:46 +0000
committerNicholas Clark <nick@ccl4.org>2005-06-01 09:19:46 +0000
commitcace1726e17065120ea0a72ecc23f9ee4c322248 (patch)
tree2ee5eb8c09650eeee5f10664611b6248fc1af85d
parent5cf1bec94acfda2c63b79cbc3b0bce4e6fe08b97 (diff)
downloadperl-cace1726e17065120ea0a72ecc23f9ee4c322248.tar.gz
Following the head refactoring, the Newz doesn't clear the SvPVX
So PL_mess_sv contained an uninitialised value. p4raw-id: //depot/perl@24657
-rw-r--r--util.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/util.c b/util.c
index f80eb63c9b..8b683a7453 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;