From: Simon Cozens <simon@netthink.co.uk>
Date: Sat, 6 Jan 2001 11:48:40 +0000 (+0000)
Subject: (Outcommented by #8369.)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e4090ce886275aecfe2478d139a6e0a7781d824e;p=p5sagit%2Fp5-mst-13.2.git

(Outcommented by #8369.)

Subject: Re: Perl BugID 20001205.022 ---- save_delete
Message-ID: <20010106114840.A13227@deep-dark-truthful-mirror.perlhacker.org>

The save_delete() does need the Safefree.

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

diff --git a/scope.c b/scope.c
index 27b522f..8a32017 100644
--- a/scope.c
+++ b/scope.c
@@ -852,6 +852,7 @@ Perl_leave_scope(pTHX_ I32 base)
 	    ptr = SSPOPPTR;
 	    (void)hv_delete(hv, (char*)ptr, (U32)SSPOPINT, G_DISCARD);
 	    SvREFCNT_dec(hv);
+	    Safefree(ptr);
 	    break;
 	case SAVEt_DESTRUCTOR:
 	    ptr = SSPOPPTR;