… | |
… | |
1053 | |
1053 | |
1054 | BEGIN { AnyEvent::common_sense } |
1054 | BEGIN { AnyEvent::common_sense } |
1055 | |
1055 | |
1056 | use Carp (); |
1056 | use Carp (); |
1057 | |
1057 | |
1058 | our $VERSION = 4.83; |
1058 | our $VERSION = 4.85; |
1059 | our $MODEL; |
1059 | our $MODEL; |
1060 | |
1060 | |
1061 | our $AUTOLOAD; |
1061 | our $AUTOLOAD; |
1062 | our @ISA; |
1062 | our @ISA; |
1063 | |
1063 | |
… | |
… | |
1362 | undef $SIG_TW |
1362 | undef $SIG_TW |
1363 | unless --$SIG_COUNT; |
1363 | unless --$SIG_COUNT; |
1364 | |
1364 | |
1365 | delete $SIG_CB{$signal}{$cb}; |
1365 | delete $SIG_CB{$signal}{$cb}; |
1366 | |
1366 | |
|
|
1367 | $HAVE_ASYNC_INTERRUPT |
|
|
1368 | ? delete $SIG_ASY{$signal} |
1367 | # delete doesn't work with older perls - they then |
1369 | : # delete doesn't work with older perls - they then |
1368 | # print weird messages, or just unconditionally exit |
1370 | # print weird messages, or just unconditionally exit |
1369 | # instead of getting the default action. |
1371 | # instead of getting the default action. |
1370 | undef $SIG{$signal} |
1372 | undef $SIG{$signal} |
1371 | unless keys %{ $SIG_CB{$signal} }; |
1373 | unless keys %{ $SIG_CB{$signal} }; |
1372 | } |
1374 | } |
1373 | |
1375 | |
1374 | # default implementation for ->child |
1376 | # default implementation for ->child |
1375 | |
1377 | |
… | |
… | |
1566 | C<PERL_ANYEVENT_MODEL>. |
1568 | C<PERL_ANYEVENT_MODEL>. |
1567 | |
1569 | |
1568 | When set to C<2> or higher, cause AnyEvent to report to STDERR which event |
1570 | When set to C<2> or higher, cause AnyEvent to report to STDERR which event |
1569 | model it chooses. |
1571 | model it chooses. |
1570 | |
1572 | |
|
|
1573 | When set to C<8> or higher, then AnyEvent will report extra information on |
|
|
1574 | which optional modules it loads and how it implements certain features. |
|
|
1575 | |
1571 | =item C<PERL_ANYEVENT_STRICT> |
1576 | =item C<PERL_ANYEVENT_STRICT> |
1572 | |
1577 | |
1573 | AnyEvent does not do much argument checking by default, as thorough |
1578 | AnyEvent does not do much argument checking by default, as thorough |
1574 | argument checking is very costly. Setting this variable to a true value |
1579 | argument checking is very costly. Setting this variable to a true value |
1575 | will cause AnyEvent to load C<AnyEvent::Strict> and then to thoroughly |
1580 | will cause AnyEvent to load C<AnyEvent::Strict> and then to thoroughly |
… | |
… | |
1651 | |
1656 | |
1652 | When neither C<ca_file> nor C<ca_path> was specified during |
1657 | When neither C<ca_file> nor C<ca_path> was specified during |
1653 | L<AnyEvent::TLS> context creation, and either of these environment |
1658 | L<AnyEvent::TLS> context creation, and either of these environment |
1654 | variables exist, they will be used to specify CA certificate locations |
1659 | variables exist, they will be used to specify CA certificate locations |
1655 | instead of a system-dependent default. |
1660 | instead of a system-dependent default. |
|
|
1661 | |
|
|
1662 | =item C<PERL_ANYEVENT_AVOID_GUARD> and C<PERL_ANYEVENT_AVOID_ASYNC_INTERRUPT> |
|
|
1663 | |
|
|
1664 | When these are set to C<1>, then the respective modules are not |
|
|
1665 | loaded. Mostly good for testing AnyEvent itself. |
1656 | |
1666 | |
1657 | =back |
1667 | =back |
1658 | |
1668 | |
1659 | =head1 SUPPLYING YOUR OWN EVENT MODEL INTERFACE |
1669 | =head1 SUPPLYING YOUR OWN EVENT MODEL INTERFACE |
1660 | |
1670 | |