… | |
… | |
816 | no warnings; |
816 | no warnings; |
817 | use strict; |
817 | use strict; |
818 | |
818 | |
819 | use Carp; |
819 | use Carp; |
820 | |
820 | |
821 | our $VERSION = 4.151; |
821 | our $VERSION = '4.160'; # temporary workaround for broken fedora |
822 | our $MODEL; |
822 | our $MODEL; |
823 | |
823 | |
824 | our $AUTOLOAD; |
824 | our $AUTOLOAD; |
825 | our @ISA; |
825 | our @ISA; |
826 | |
826 | |
… | |
… | |
988 | sub AnyEvent::Base::Signal::DESTROY { |
988 | sub AnyEvent::Base::Signal::DESTROY { |
989 | my ($signal, $cb) = @{$_[0]}; |
989 | my ($signal, $cb) = @{$_[0]}; |
990 | |
990 | |
991 | delete $SIG_CB{$signal}{$cb}; |
991 | delete $SIG_CB{$signal}{$cb}; |
992 | |
992 | |
993 | $SIG{$signal} = 'DEFAULT' unless keys %{ $SIG_CB{$signal} }; |
993 | delete $SIG{$signal} unless keys %{ $SIG_CB{$signal} }; |
994 | } |
994 | } |
995 | |
995 | |
996 | # default implementation for ->child |
996 | # default implementation for ->child |
997 | |
997 | |
998 | our %PID_CB; |
998 | our %PID_CB; |