[win32] fixes for various noises under PERL_DESTRUCT_LEVEL

p4raw-id: //depot/win32/perl@878

1 files changed, 3 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 56f673dacd..c20312639f 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1059,8 +1059,10 @@ die_where(char *message)
 	else
 	    sv_setpv(ERRSV, message);
 	
-	while ((cxix = dopoptoeval(cxstack_ix)) < 0 && curstackinfo->si_prev)
+	while ((cxix = dopoptoeval(cxstack_ix)) < 0 && curstackinfo->si_prev) {
+	    dounwind(-1);
 	    POPSTACK();
+	}
 
 	if (cxix >= 0) {
 	    I32 optype;