| … | |
… | |
| 1233 | |
1233 | |
| 1234 | BEGIN { AnyEvent::common_sense } |
1234 | BEGIN { AnyEvent::common_sense } |
| 1235 | |
1235 | |
| 1236 | use Carp (); |
1236 | use Carp (); |
| 1237 | |
1237 | |
| 1238 | our $VERSION = '6.1'; |
1238 | our $VERSION = '6.11'; |
| 1239 | our $MODEL; |
1239 | our $MODEL; |
| 1240 | our @ISA; |
1240 | our @ISA; |
| 1241 | our @REGISTRY; |
1241 | our @REGISTRY; |
| 1242 | our $VERBOSE; |
1242 | our $VERBOSE; |
| 1243 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
1243 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
| … | |
… | |
| 1395 | |
1395 | |
| 1396 | # IO::Async::Loop::AnyEvent is extremely evil, refuse to work with it |
1396 | # IO::Async::Loop::AnyEvent is extremely evil, refuse to work with it |
| 1397 | # the author knows about the problems and what it does to AnyEvent as a whole |
1397 | # the author knows about the problems and what it does to AnyEvent as a whole |
| 1398 | # (and the ability of others to use AnyEvent), but simply wants to abuse AnyEvent |
1398 | # (and the ability of others to use AnyEvent), but simply wants to abuse AnyEvent |
| 1399 | # anyway. |
1399 | # anyway. |
| 1400 | AnyEvent::log fatal => "AnyEvent: IO::Async::Loop::AnyEvent detected - this module is broken by design,\n" |
1400 | AnyEvent::log fatal => "AnyEvent: IO::Async::Loop::AnyEvent detected - that module is broken by\n" |
| 1401 | . "abuses internals and breaks AnyEvent, will not continue." |
1401 | . "design, abuses internals and breaks AnyEvent - will not continue." |
| 1402 | if exists $INC{"IO/Async/Loop/AnyEvent.pm"}; |
1402 | if exists $INC{"IO/Async/Loop/AnyEvent.pm"}; |
| 1403 | |
1403 | |
| 1404 | local $!; # for good measure |
1404 | local $!; # for good measure |
| 1405 | local $SIG{__DIE__}; # we use eval |
1405 | local $SIG{__DIE__}; # we use eval |
| 1406 | |
1406 | |
