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.211 by root, Sat Jun 6 12:04:30 2009 UTC vs.
Revision 1.214 by root, Mon Jun 22 11:57:05 2009 UTC

… …
931no warnings; 931no warnings;
932use strict qw(vars subs); 932use strict qw(vars subs);
933 933
934use Carp; 934use Carp;
935 935
936our $VERSION = 4.41; 936our $VERSION = 4.411;
937our $MODEL; 937our $MODEL;
938 938
939our $AUTOLOAD; 939our $AUTOLOAD;
940our @ISA; 940our @ISA;
941 941
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
… …
1953 use AnyEvent; 1960 use AnyEvent;
1954 1961
1955Similar considerations apply to $ENV{PERL_ANYEVENT_VERBOSE}, as that can 1962Similar considerations apply to $ENV{PERL_ANYEVENT_VERBOSE}, as that can
1956be used to probe what backend is used and gain other information (which is 1963be used to probe what backend is used and gain other information (which is
1957probably even less useful to an attacker than PERL_ANYEVENT_MODEL), and 1964probably even less useful to an attacker than PERL_ANYEVENT_MODEL), and
1958$ENV{PERL_ANYEGENT_STRICT}. 1965$ENV{PERL_ANYEVENT_STRICT}.
1959 1966
1960 1967
1961=head1 BUGS 1968=head1 BUGS
1962 1969
1963Perl 5.8 has numerous memleaks that sometimes hit this module and are hard 1970Perl 5.8 has numerous memleaks that sometimes hit this module and are hard

Diff Legend

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