add SAVEFREECOPHH()

Add the facility for the save stack to free (decrement the refcount of)
a COPHH*.

1 files changed, 4 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index 9c1831cfcc..eb464f91da 100644
--- a/scope.c
+++ b/scope.c
@@ -867,6 +867,10 @@ Perl_leave_scope(pTHX_ I32 base)
 	    ptr = SSPOPPTR;
 	    SvREFCNT_dec(MUTABLE_SV(ptr));
 	    break;
+	case SAVEt_FREECOPHH:
+	    ptr = SSPOPPTR;
+	    cophh_free((COPHH *)ptr);
+	    break;
 	case SAVEt_MORTALIZESV:
 	    ptr = SSPOPPTR;
 	    sv_2mortal(MUTABLE_SV(ptr));