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.370 by root, Wed Aug 17 02:50:35 2011 UTC vs.
Revision 1.371 by root, Wed Aug 24 23:59:10 2011 UTC

… …
1234 require "AnyEvent/constants.pl"; 1234 require "AnyEvent/constants.pl";
1235 1235
1236 eval "sub TAINT (){" . (${^TAINT}*1) . "}"; 1236 eval "sub TAINT (){" . (${^TAINT}*1) . "}";
1237 1237
1238 delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV} 1238 delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV}
1239 if ${^TAINT};
1240
1241 $ENV{"PERL_ANYEVENT_$_"} = $ENV{"AE_$_"}
1242 for grep s/^AE_// && !exists $ENV{"PERL_ANYEVENT_$_"}, keys %ENV;
1243
1244 @ENV{grep /^PERL_ANYEVENT_/, keys %ENV} = ()
1239 if ${^TAINT}; 1245 if ${^TAINT};
1240 1246
1241 $VERBOSE = $ENV{PERL_ANYEVENT_VERBOSE}*1; 1247 $VERBOSE = $ENV{PERL_ANYEVENT_VERBOSE}*1;
1242} 1248}
1243 1249
… …
1416 1422
1417 _isa_set; 1423 _isa_set;
1418 1424
1419 # we're officially open! 1425 # we're officially open!
1420 1426
1427 if (length $ENV{PERL_ANYEVENT_LOG}) {
1428 require AnyEvent::Log; # AnyEvent::Log does the thing for us
1429 }
1430
1421 if ($ENV{PERL_ANYEVENT_STRICT}) { 1431 if ($ENV{PERL_ANYEVENT_STRICT}) {
1422 require AnyEvent::Strict; 1432 require AnyEvent::Strict;
1423 } 1433 }
1424 1434
1425 if ($ENV{PERL_ANYEVENT_DEBUG_WRAP}) { 1435 if ($ENV{PERL_ANYEVENT_DEBUG_WRAP}) {
… …
1975$Event/EV::DIED->() >>, L<Glib> uses C<< install_exception_handler >> and 1985$Event/EV::DIED->() >>, L<Glib> uses C<< install_exception_handler >> and
1976so on. 1986so on.
1977 1987
1978=head1 ENVIRONMENT VARIABLES 1988=head1 ENVIRONMENT VARIABLES
1979 1989
1980The following environment variables are used by this module or its 1990AnyEvent supports a number of environment variables that tune the
1981submodules. 1991runtime behaviour. They are usually evaluated when AnyEvent is
1992loaded, initialised, or a submodule that uses them is loaded. Many of
1993them also cause AnyEvent to load additional modules - for example,
1994C<PERL_ANYEVENT_DEBUG_WRAP> causes the L<AnyEvent::Debug> module to be
1995loaded.
1982 1996
1983Note that AnyEvent will remove I<all> environment variables starting with 1997All the environment variables documented here start with
1984C<PERL_ANYEVENT_> from C<%ENV> when it is loaded while taint mode is 1998C<PERL_ANYEVENT_>, which is what AnyEvent considers its own
1985enabled. 1999namespace. Other modules are encouraged (but by no means required) to use
2000C<PERL_ANYEVENT_SUBMODULE> if they have registered the AnyEvent::Submodule
2001namespace on CPAN, for any submodule. For example, L<AnyEvent::HTTP> could
2002be expected to use C<PERL_ANYEVENT_HTTP_PROXY> (it should not access env
2003variables starting with C<AE_>, see below).
2004
2005All variables can also be set via the C<AE_> prefix, that is, instead
2006of setting C<PERL_ANYEVENT_VERBOSE> you can also set C<AE_VERBOSE>. In
2007case there is a clash btween anyevent and another program that uses
2008C<AE_something> you can set the corresponding C<PERL_ANYEVENT_something>
2009variable to the empty string, as those variables take precedence.
2010
2011When AnyEvent is first loaded, it copies all C<AE_xxx> env variables
2012to their C<PERL_ANYEVENT_xxx> counterpart unless that variable already
2013exists. If taint mode is on, then AnyEvent will remove I<all> environment
2014variables starting with C<PERL_ANYEVENT_> from C<%ENV> (or replace them
2015with C<undef> or the empty string, if the corresaponding C<AE_> variable
2016is set).
2017
2018The exact algorithm is currently:
2019
2020 1. if taint mode enabled, delete all PERL_ANYEVENT_xyz variables from %ENV
2021 2. copy over AE_xyz to PERL_ANYEVENT_xyz unless the latter alraedy exists
2022 3. if taint mode enabled, set all PERL_ANYEVENT_xyz variables to undef.
2023
2024This ensures that child processes will not see the C<AE_> variables.
2025
2026The following environment variables are currently known to AnyEvent:
1986 2027
1987=over 4 2028=over 4
1988 2029
1989=item C<PERL_ANYEVENT_VERBOSE> 2030=item C<PERL_ANYEVENT_VERBOSE>
1990 2031
1991By default, AnyEvent will be completely silent except in fatal 2032By default, AnyEvent will be completely silent except in fatal
1992conditions. You can set this environment variable to make AnyEvent more 2033conditions. You can set this environment variable to make AnyEvent more
1993talkative. 2034talkative. If you want to do more than just set the global logging level
2035you should have a look at C<PERL_ANYEVENT_LOG>, which allows much more
2036complex specifications.
1994 2037
1995When set to C<5> or higher, causes AnyEvent to warn about unexpected 2038When set to C<5> or higher, causes AnyEvent to warn about unexpected
1996conditions, such as not being able to load the event model specified by 2039conditions, such as not being able to load the event model specified by
1997C<PERL_ANYEVENT_MODEL>. 2040C<PERL_ANYEVENT_MODEL>.
1998 2041
1999When set to C<7> or higher, cause AnyEvent to report to STDERR which event 2042When set to C<7> or higher, cause AnyEvent to report to STDERR which event
2000model it chooses. 2043model it chooses.
2001 2044
2002When set to C<8> or higher, then AnyEvent will report extra information on 2045When set to C<8> or higher, then AnyEvent will report extra information on
2003which optional modules it loads and how it implements certain features. 2046which optional modules it loads and how it implements certain features.
2047
2048=item C<PERL_ANYEVENT_LOG>
2049
2050Accepts rather complex logging specifications. For example, you could log
2051all C<debug> messages of some module to stderr, warnings and above to
2052stderr, and errors and above to syslog, with:
2053
2054 PERL_ANYEVENT_LOG=Some::Module=debug,+log:filter=warn,+%syslog:%syslog=error,syslog
2055
2056For the rather extensive details, see L<AnyEvent::Log>.
2057
2058Note that specifying this environment variable causes the L<AnyEvent::Log>
2059module to be loaded, while C<PERL_ANYEVENT_VERBOSE> does not, so only
2060using the latter saves a few hundred kB of memory until the first message
2061is being logged.
2004 2062
2005=item C<PERL_ANYEVENT_STRICT> 2063=item C<PERL_ANYEVENT_STRICT>
2006 2064
2007AnyEvent does not do much argument checking by default, as thorough 2065AnyEvent does not do much argument checking by default, as thorough
2008argument checking is very costly. Setting this variable to a true value 2066argument checking is very costly. Setting this variable to a true value
… …
2080addresses. C<PERL_ANYEVENT_PROTOCOLS=ipv6,ipv4> support either IPv4 or 2138addresses. C<PERL_ANYEVENT_PROTOCOLS=ipv6,ipv4> support either IPv4 or
2081IPv6, but prefer IPv6 over IPv4. 2139IPv6, but prefer IPv6 over IPv4.
2082 2140
2083=item C<PERL_ANYEVENT_EDNS0> 2141=item C<PERL_ANYEVENT_EDNS0>
2084 2142
2085Used by L<AnyEvent::DNS> to decide whether to use the EDNS0 extension 2143Used by L<AnyEvent::DNS> to decide whether to use the EDNS0 extension for
2086for DNS. This extension is generally useful to reduce DNS traffic, but 2144DNS. This extension is generally useful to reduce DNS traffic, especially
2087some (broken) firewalls drop such DNS packets, which is why it is off by 2145when DNSSEC is involved, but some (broken) firewalls drop such DNS
2088default. 2146packets, which is why it is off by default.
2089 2147
2090Setting this variable to C<1> will cause L<AnyEvent::DNS> to announce 2148Setting this variable to C<1> will cause L<AnyEvent::DNS> to announce
2091EDNS0 in its DNS requests. 2149EDNS0 in its DNS requests.
2092 2150
2093=item C<PERL_ANYEVENT_MAX_FORKS> 2151=item C<PERL_ANYEVENT_MAX_FORKS>
… …
2101resolver - this is the maximum number of parallel DNS requests that are 2159resolver - this is the maximum number of parallel DNS requests that are
2102sent to the DNS server. 2160sent to the DNS server.
2103 2161
2104=item C<PERL_ANYEVENT_RESOLV_CONF> 2162=item C<PERL_ANYEVENT_RESOLV_CONF>
2105 2163
2106The file to use instead of F</etc/resolv.conf> (or OS-specific 2164The absolute path to a F<resolv.conf>-style file to use instead of
2107configuration) in the default resolver. When set to the empty string, no 2165F</etc/resolv.conf> (or the OS-specific configuration) in the default
2108default config will be used. 2166resolver, or the empty string to select the default configuration.
2109 2167
2110=item C<PERL_ANYEVENT_CA_FILE>, C<PERL_ANYEVENT_CA_PATH>. 2168=item C<PERL_ANYEVENT_CA_FILE>, C<PERL_ANYEVENT_CA_PATH>.
2111 2169
2112When neither C<ca_file> nor C<ca_path> was specified during 2170When neither C<ca_file> nor C<ca_path> was specified during
2113L<AnyEvent::TLS> context creation, and either of these environment 2171L<AnyEvent::TLS> context creation, and either of these environment
2114variables exist, they will be used to specify CA certificate locations 2172variables are nonempty, they will be used to specify CA certificate
2115instead of a system-dependent default. 2173locations instead of a system-dependent default.
2116 2174
2117=item C<PERL_ANYEVENT_AVOID_GUARD> and C<PERL_ANYEVENT_AVOID_ASYNC_INTERRUPT> 2175=item C<PERL_ANYEVENT_AVOID_GUARD> and C<PERL_ANYEVENT_AVOID_ASYNC_INTERRUPT>
2118 2176
2119When these are set to C<1>, then the respective modules are not 2177When these are set to C<1>, then the respective modules are not
2120loaded. Mostly good for testing AnyEvent itself. 2178loaded. Mostly good for testing AnyEvent itself.

Diff Legend

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