perl5.000 patch.0m: [various fixes, hint file updates and documentation]

[p5sagit/p5-mst-13.2.git] / scope.c

diff --git a/scope.c b/scope.c
index 9bc49f9..ce53fd0 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -573,6 +573,7 @@ I32 base;
            hv = (HV*)ptr;
            ptr = SSPOPPTR;
            hv_delete(hv, (char*)ptr, (U32)SSPOPINT);
+           Safefree(ptr);
            break;
        case SAVEt_DESTRUCTOR:
            ptr = SSPOPPTR;