| … | |
… | |
| 930 | no warnings; |
930 | no warnings; |
| 931 | use strict qw(vars subs); |
931 | use strict qw(vars subs); |
| 932 | |
932 | |
| 933 | use Carp; |
933 | use Carp; |
| 934 | |
934 | |
| 935 | our $VERSION = 4.4; |
935 | our $VERSION = 4.41; |
| 936 | our $MODEL; |
936 | our $MODEL; |
| 937 | |
937 | |
| 938 | our $AUTOLOAD; |
938 | our $AUTOLOAD; |
| 939 | our @ISA; |
939 | our @ISA; |
| 940 | |
940 | |
| … | |
… | |
| 1171 | sub AnyEvent::Base::signal::DESTROY { |
1171 | sub AnyEvent::Base::signal::DESTROY { |
| 1172 | my ($signal, $cb) = @{$_[0]}; |
1172 | my ($signal, $cb) = @{$_[0]}; |
| 1173 | |
1173 | |
| 1174 | delete $SIG_CB{$signal}{$cb}; |
1174 | delete $SIG_CB{$signal}{$cb}; |
| 1175 | |
1175 | |
| 1176 | delete $SIG{$signal} unless keys %{ $SIG_CB{$signal} }; |
1176 | $SIG{$signal} = 'DEFAULT' unless keys %{ $SIG_CB{$signal} }; |
| 1177 | } |
1177 | } |
| 1178 | |
1178 | |
| 1179 | # default implementation for ->child |
1179 | # default implementation for ->child |
| 1180 | |
1180 | |
| 1181 | our %PID_CB; |
1181 | our %PID_CB; |
