Retract change #18765: makes HiRes.t hang after subtest #11.

p4raw-link: @18765 on //depot/perl: 2fb44b4522b8956ab337b2f83a5fe619b0773788

p4raw-id: //depot/perl@18769

1 files changed, 2 insertions, 20 deletions

diff --git a/mg.c b/mg.c
index 792d22fded..da5666ccb6 100644
--- a/mg.c
+++ b/mg.c
@@ -1158,26 +1158,8 @@ 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)
-#   define BLOCK_SIGNALS_WITH_SIGPROCMASK
-#endif
-#ifdef BLOCK_SIGNALS_WITH_SIGPROCMASK
-	     /* 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.
-	      */
-	     sigset_t set;
-	     sigemptyset(&set);
-	     sigaddset(&set,sig);
-#endif
-	     PL_psig_pend[sig] = 0;
-#ifdef BLOCK_SIGNALS_WITH_SIGPROCMASK
-	     sigprocmask(SIG_BLOCK, &set, NULL);
-#endif
-	     (*PL_sighandlerp)(sig);
+	    PL_psig_pend[sig] = 0;
+	    (*PL_sighandlerp)(sig);
 	}
     }
 }