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.213 by root, Sat Jun 20 07:14:35 2009 UTC vs.
Revision 1.214 by root, Mon Jun 22 11:57:05 2009 UTC

… …
942our @REGISTRY; 942our @REGISTRY;
943 943
944our $WIN32; 944our $WIN32;
945 945
946BEGIN { 946BEGIN {
947 my $win32 = ! ! ($^O =~ /mswin32/i); 947 eval "sub WIN32(){ " . (($^O =~ /mswin32/i)*1) ." }";
948 eval "sub WIN32(){ $win32 }"; 948 eval "sub TAINT(){ " . (${^TAINT}*1) . " }";
949
950 delete @ENV{grep /^PERL_ANYEVENT_/, keys %ENV}
951 if ${^TAINT};
949} 952}
950 953
951our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1; 954our $verbose = $ENV{PERL_ANYEVENT_VERBOSE}*1;
952 955
953our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred 956our %PROTOCOL; # (ipv4|ipv6) => (1|2), higher numbers are preferred
… …
1337so on. 1340so on.
1338 1341
1339=head1 ENVIRONMENT VARIABLES 1342=head1 ENVIRONMENT VARIABLES
1340 1343
1341The following environment variables are used by this module or its 1344The following environment variables are used by this module or its
1342submodules: 1345submodules.
1346
1347Note that AnyEvent will remove I<all> environment variables starting with
1348C<PERL_ANYEVENT_> from C<%ENV> when it is loaded while taint mode is
1349enabled.
1343 1350
1344=over 4 1351=over 4
1345 1352
1346=item C<PERL_ANYEVENT_VERBOSE> 1353=item C<PERL_ANYEVENT_VERBOSE>
1347 1354

Diff Legend

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