save_delete(), err, SAVEDELETE() fixes from Charles Lane.

Should finish up the bug id 20001205.022.

p4raw-id: //depot/perl@8382

1 files changed, 1 insertions, 1 deletions

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