Cleanup #18770 as suggested by Rafael.

p4raw-id: //depot/perl@18771

1 files changed, 0 insertions, 15 deletions

diff --git a/mg.c b/mg.c
index 116a369986..58a5cd5460 100644
--- a/mg.c
+++ b/mg.c
@@ -1158,21 +1158,6 @@ Perl_despatch_signals(pTHX)
     PL_sig_pending = 0;
     for (sig = 1; sig < SIG_SIZE; sig++) {
 	if (PL_psig_pend[sig]) {
-#define PERL_BLOCK_SIGNALS
-#if defined(HAS_SIGPROCMASK) && defined(PERL_BLOCK_SIGNALS)
-            /* From sigaction(2) (FreeBSD man page):
-             * | Signal routines normally execute with the signal that
-             * | caused their invocation blocked, but other signals may
-             * | yet occur.
-             * Emulate this behavior.
-             */
-#   define PERL_BLOCKSIG_ADD(set,sig) \
-	sigset_t set; sigemptyset(&(set)); sigaddset(&(set), sig)
-#   define PERL_BLOCKSIG_BLOCK(set) \
-	sigprocmask(SIG_BLOCK, &(set), NULL)
-#   define PERL_BLOCKSIG_UNBLOCK(set) \
-	sigprocmask(SIG_UNBLOCK, &(set), NULL)
-#endif /* HAS_SIGPROCMASK && PERL_BLOCK_SIGNALS */
 	    PERL_BLOCKSIG_ADD(set, sig);
  	    PL_psig_pend[sig] = 0;
 	    PERL_BLOCKSIG_BLOCK(set);