| … | |
… | |
| 1229 | |
1229 | |
| 1230 | =cut |
1230 | =cut |
| 1231 | |
1231 | |
| 1232 | package AnyEvent; |
1232 | package AnyEvent; |
| 1233 | |
1233 | |
| 1234 | # basically a tuned-down version of common::sense |
1234 | BEGIN { |
| 1235 | sub common_sense { |
1235 | require "AnyEvent/constants.pl"; |
| 1236 | # from common:.sense 3.5 |
1236 | &AnyEvent::common_sense; |
| 1237 | local $^W; |
|
|
| 1238 | ${^WARNING_BITS} ^= ${^WARNING_BITS} ^ "\x3c\x3f\x33\x00\x0f\xf0\x0f\xc0\xf0\xfc\x33\x00"; |
|
|
| 1239 | # use strict vars subs - NO UTF-8, as Util.pm doesn't like this atm. (uts46data.pl) |
|
|
| 1240 | $^H |= 0x00000600; |
|
|
| 1241 | } |
1237 | } |
| 1242 | |
|
|
| 1243 | BEGIN { AnyEvent::common_sense } |
|
|
| 1244 | |
1238 | |
| 1245 | use Carp (); |
1239 | use Carp (); |
| 1246 | |
1240 | |
| 1247 | our $VERSION = '7.04'; |
1241 | our $VERSION = '7.05'; |
| 1248 | our $MODEL; |
1242 | our $MODEL; |
| 1249 | our @ISA; |
1243 | our @ISA; |
| 1250 | our @REGISTRY; |
1244 | our @REGISTRY; |
| 1251 | our $VERBOSE; |
1245 | our $VERBOSE; |
| 1252 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
1246 | our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred |
| 1253 | our $MAX_SIGNAL_LATENCY = $ENV{PERL_ANYEVENT_MAX_SIGNAL_LATENCY} || 10; # executes after the BEGIN block below (tainting!) |
1247 | our $MAX_SIGNAL_LATENCY = $ENV{PERL_ANYEVENT_MAX_SIGNAL_LATENCY} || 10; # executes after the BEGIN block below (tainting!) |
| 1254 | |
1248 | |
| 1255 | BEGIN { |
1249 | BEGIN { |
| 1256 | require "AnyEvent/constants.pl"; |
|
|
| 1257 | |
|
|
| 1258 | eval "sub TAINT (){" . (${^TAINT}*1) . "}"; |
1250 | eval "sub TAINT (){" . (${^TAINT}*1) . "}"; |
| 1259 | |
1251 | |
| 1260 | delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV} |
1252 | delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV} |
| 1261 | if ${^TAINT}; |
1253 | if ${^TAINT}; |
| 1262 | |
1254 | |
