--- AnyEvent/lib/AnyEvent.pm	2008/05/25 04:49:01	1.135
+++ AnyEvent/lib/AnyEvent.pm	2008/05/25 23:52:02	1.136
@@ -743,12 +743,13 @@
 
 our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1;
 
-our %PROTOCOL; # (ipv4|ipv6) => (1|2)
+our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred
 
 {
    my $idx;
    $PROTOCOL{$_} = ++$idx
-      for split /\s*,\s*/, $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6";
+      for reverse split /\s*,\s*/,
+             $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6";
 }
 
 my @models = (