… | |
… | |
731 | no warnings; |
731 | no warnings; |
732 | use strict; |
732 | use strict; |
733 | |
733 | |
734 | use Carp; |
734 | use Carp; |
735 | |
735 | |
736 | our $VERSION = '4.03'; |
736 | our $VERSION = '4.05'; |
737 | our $MODEL; |
737 | our $MODEL; |
738 | |
738 | |
739 | our $AUTOLOAD; |
739 | our $AUTOLOAD; |
740 | our @ISA; |
740 | our @ISA; |
741 | |
741 | |
742 | our @REGISTRY; |
742 | our @REGISTRY; |
|
|
743 | |
|
|
744 | our $WIN32; |
|
|
745 | |
|
|
746 | BEGIN { |
|
|
747 | my $win32 = ! ! ($^O =~ /mswin32/i); |
|
|
748 | eval "sub WIN32(){ $win32 }"; |
|
|
749 | } |
743 | |
750 | |
744 | our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1; |
751 | our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1; |
745 | |
752 | |
746 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
753 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
747 | |
754 | |