… | |
… | |
741 | |
741 | |
742 | our @REGISTRY; |
742 | our @REGISTRY; |
743 | |
743 | |
744 | our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1; |
744 | our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1; |
745 | |
745 | |
746 | our %PROTOCOL; # (ipv4|ipv6) => (1|2) |
746 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
747 | |
747 | |
748 | { |
748 | { |
749 | my $idx; |
749 | my $idx; |
750 | $PROTOCOL{$_} = ++$idx |
750 | $PROTOCOL{$_} = ++$idx |
|
|
751 | for reverse split /\s*,\s*/, |
751 | for split /\s*,\s*/, $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6"; |
752 | $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6"; |
752 | } |
753 | } |
753 | |
754 | |
754 | my @models = ( |
755 | my @models = ( |
755 | [EV:: => AnyEvent::Impl::EV::], |
756 | [EV:: => AnyEvent::Impl::EV::], |
756 | [Event:: => AnyEvent::Impl::Event::], |
757 | [Event:: => AnyEvent::Impl::Event::], |