From 0bd863d8ca9a7ab3337115aefd3f333f3229e50b Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Thu, 15 Oct 2015 14:26:21 +0100 Subject: [PATCH] dounwind: CX_LEAVE_SCOPE for CXt_SUBST too This was the only branch that didn't clear up the context stack as part of a context stack unwind. --- pp_ctl.c | 1 + 1 file changed, 1 insertion(+) diff --git a/pp_ctl.c b/pp_ctl.c index a35e80c..b174a05 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -1512,6 +1512,7 @@ Perl_dounwind(pTHX_ I32 cxix) /* Note: we don't need to restore the base context info till the end. */ switch (CxTYPE(cx)) { case CXt_SUBST: + CX_LEAVE_SCOPE(cx); POPSUBST(cx); continue; /* not break */ case CXt_SUB: -- 1.8.3.1