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, 2 insertions, 0 deletions

diff --git a/doio.c b/doio.c
index eba7b54931..98861af131 100644
--- a/doio.c
+++ b/doio.c
@@ -1740,6 +1740,7 @@ nothing in the core.
 		    }
 		}
 	    }
+	    PERL_ASYNC_CHECK();
 	    break;
 	}
 #endif
@@ -1770,6 +1771,7 @@ nothing in the core.
 		    tot--;
 	    }
 	}
+	PERL_ASYNC_CHECK();
 	break;
 #endif
     case OP_UNLINK: