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