deleting keys in restricted hashes was leaking the entry. Yow!

p4raw-id: //depot/perl@22281

1 files changed, 1 insertions, 0 deletions

diff --git a/hv.c b/hv.c
index 097b599508..669e55a407 100644
--- a/hv.c
+++ b/hv.c
@@ -1005,6 +1005,7 @@ S_hv_delete_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
 	 * an error.
 	 */
 	if (SvREADONLY(hv)) {
+	    SvREFCNT_dec(HeVAL(entry));
 	    HeVAL(entry) = &PL_sv_placeholder;
 	    /* We'll be saving this slot, so the number of allocated keys
 	     * doesn't go down, but the number placeholders goes up */