| … | |
… | |
| 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 | } |
