… | |
… | |
1237 | |
1237 | |
1238 | use Carp (); |
1238 | use Carp (); |
1239 | |
1239 | |
1240 | our $VERSION = '6.02'; |
1240 | our $VERSION = '6.02'; |
1241 | our $MODEL; |
1241 | our $MODEL; |
1242 | |
|
|
1243 | our @ISA; |
1242 | our @ISA; |
1244 | |
|
|
1245 | our @REGISTRY; |
1243 | our @REGISTRY; |
1246 | |
|
|
1247 | our $VERBOSE; |
1244 | our $VERBOSE; |
|
|
1245 | our $MAX_SIGNAL_LATENCY = 10; |
|
|
1246 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
1248 | |
1247 | |
1249 | BEGIN { |
1248 | BEGIN { |
1250 | require "AnyEvent/constants.pl"; |
1249 | require "AnyEvent/constants.pl"; |
1251 | |
1250 | |
1252 | eval "sub TAINT (){" . (${^TAINT}*1) . "}"; |
1251 | eval "sub TAINT (){" . (${^TAINT}*1) . "}"; |
… | |
… | |
1261 | if ${^TAINT}; |
1260 | if ${^TAINT}; |
1262 | |
1261 | |
1263 | # $ENV{PERL_ANYEVENT_xxx} now valid |
1262 | # $ENV{PERL_ANYEVENT_xxx} now valid |
1264 | |
1263 | |
1265 | $VERBOSE = length $ENV{PERL_ANYEVENT_VERBOSE} ? $ENV{PERL_ANYEVENT_VERBOSE}*1 : 3; |
1264 | $VERBOSE = length $ENV{PERL_ANYEVENT_VERBOSE} ? $ENV{PERL_ANYEVENT_VERBOSE}*1 : 3; |
1266 | } |
|
|
1267 | |
1265 | |
1268 | our $MAX_SIGNAL_LATENCY = 10; |
|
|
1269 | |
|
|
1270 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
|
|
1271 | |
|
|
1272 | { |
|
|
1273 | my $idx; |
1266 | my $idx; |
1274 | $PROTOCOL{$_} = ++$idx |
1267 | $PROTOCOL{$_} = ++$idx |
1275 | for reverse split /\s*,\s*/, |
1268 | for reverse split /\s*,\s*/, |
1276 | $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6"; |
1269 | $ENV{PERL_ANYEVENT_PROTOCOLS} || "ipv4,ipv6"; |
1277 | } |
1270 | } |