… | |
… | |
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{$_} || {} }; |