Move PERL_ASYNC_CHECK() from POPBLOCK() to the kill case of Perl_apply().

This ensures that (safe) signals sent to the same process are still dispatched
within the same statement (as before), without overloading the semantics of
block popping.

1 files changed, 0 insertions, 1 deletions

diff --git a/cop.h b/cop.h
index 420a5d1790..6c51d73285 100644
--- a/cop.h
+++ b/cop.h
@@ -592,7 +592,6 @@ struct block {
 /* Exit a block (RETURN and LAST). */
 #define POPBLOCK(cx,pm)							\
 	DEBUG_CX("POP");						\
-	PERL_ASYNC_CHECK();						\
 	cx = &cxstack[cxstack_ix--],					\
 	newsp		 = PL_stack_base + cx->blk_oldsp,		\
 	PL_curcop	 = cx->blk_oldcop,				\