… | |
… | |
1386 | our ($SIG_COUNT, $SIG_TW); |
1386 | our ($SIG_COUNT, $SIG_TW); |
1387 | |
1387 | |
1388 | sub _signal_exec { |
1388 | sub _signal_exec { |
1389 | $HAVE_ASYNC_INTERRUPT |
1389 | $HAVE_ASYNC_INTERRUPT |
1390 | ? $SIGPIPE_R->drain |
1390 | ? $SIGPIPE_R->drain |
1391 | : sysread $SIGPIPE_R, my $dummy, 9; |
1391 | : sysread $SIGPIPE_R, (my $dummy), 9; |
1392 | |
1392 | |
1393 | while (%SIG_EV) { |
1393 | while (%SIG_EV) { |
1394 | for (keys %SIG_EV) { |
1394 | for (keys %SIG_EV) { |
1395 | delete $SIG_EV{$_}; |
1395 | delete $SIG_EV{$_}; |
1396 | $_->() for values %{ $SIG_CB{$_} || {} }; |
1396 | $_->() for values %{ $SIG_CB{$_} || {} }; |