From: Jarkko Hietaniemi Date: Tue, 25 Feb 2003 05:33:10 +0000 (+0000) Subject: Retract change #18765: makes HiRes.t hang after subtest #11. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f520334376d9e9412c8646c5a0407ff3708c2bec;p=p5sagit%2Fp5-mst-13.2.git Retract change #18765: makes HiRes.t hang after subtest #11. p4raw-link: @18765 on //depot/perl: 2fb44b4522b8956ab337b2f83a5fe619b0773788 p4raw-id: //depot/perl@18769 --- diff --git a/mg.c b/mg.c index 792d22f..da5666c 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); } } }