From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 8 Jan 2001 17:30:52 +0000 (+0000)
Subject: save_delete() Safefree() doesn't (anymore?) work with shared
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=af3eb38fbc0ab18bd280933f789a67d68b6c5e4a;p=p5sagit%2Fp5-mst-13.2.git

save_delete() Safefree() doesn't (anymore?) work with shared
strings, one test failure in op/misc and almost all of lib/b.
(Outcomments #8369.)

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

diff --git a/scope.c b/scope.c
index 8a32017..d4ea391 100644
--- a/scope.c
+++ b/scope.c
@@ -852,7 +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);
+	    /* Safefree(ptr); */ /* Does not work with shared strings. */
 	    break;
 	case SAVEt_DESTRUCTOR:
 	    ptr = SSPOPPTR;