… | |
… | |
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 | |