| … | |
… | |
| 1116 | |
1116 | |
| 1117 | BEGIN { AnyEvent::common_sense } |
1117 | BEGIN { AnyEvent::common_sense } |
| 1118 | |
1118 | |
| 1119 | use Carp (); |
1119 | use Carp (); |
| 1120 | |
1120 | |
| 1121 | our $VERSION = '5.12'; |
1121 | our $VERSION = '5.202'; |
| 1122 | our $MODEL; |
1122 | our $MODEL; |
| 1123 | |
1123 | |
| 1124 | our $AUTOLOAD; |
1124 | our $AUTOLOAD; |
| 1125 | our @ISA; |
1125 | our @ISA; |
| 1126 | |
1126 | |
| … | |
… | |
| 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{$_} || {} }; |
