ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.135 by root, Sun May 25 04:49:01 2008 UTC vs.
Revision 1.136 by root, Sun May 25 23:52:02 2008 UTC

… …
741 741
742our @REGISTRY; 742our @REGISTRY;
743 743
744our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1; 744our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1;
745 745
746our %PROTOCOL; # (ipv4|ipv6) => (1|2) 746our %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
754my @models = ( 755my @models = (
755 [EV:: => AnyEvent::Impl::EV::], 756 [EV:: => AnyEvent::Impl::EV::],
756 [Event:: => AnyEvent::Impl::Event::], 757 [Event:: => AnyEvent::Impl::Event::],

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines