diff options
author | Nicholas Clark <nick@ccl4.org> | 2005-06-01 09:19:46 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2005-06-01 09:19:46 +0000 |
commit | cace1726e17065120ea0a72ecc23f9ee4c322248 (patch) | |
tree | 2ee5eb8c09650eeee5f10664611b6248fc1af85d | |
parent | 5cf1bec94acfda2c63b79cbc3b0bce4e6fe08b97 (diff) | |
download | perl-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.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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; |