--- AnyEvent/lib/AnyEvent.pm 2007/10/27 15:10:09 1.28 +++ AnyEvent/lib/AnyEvent.pm 2007/11/02 19:12:02 1.30 @@ -197,9 +197,9 @@ The known classes so far are: - AnyEvent::Impl::Coro based on Coro::Event, best choice. - EV::AnyEvent based on EV (an interface to libevent) - AnyEvent::Impl::Event based on Event, also best choice :) + EV::AnyEvent based on EV (an interface to libev, best choice) + AnyEvent::Impl::Coro based on Coro::Event, second best choice. + AnyEvent::Impl::Event based on Event, also second best choice :) AnyEvent::Impl::Glib based on Glib, second-best choice. AnyEvent::Impl::Tk based on Tk, very bad choice. AnyEvent::Impl::Perl pure-perl implementation, inefficient. @@ -351,7 +351,7 @@ my $signal = uc $arg{signal} or Carp::croak "required option 'signal' is missing"; - $SIG_CB{$signal}{$arg{cb}} = $arg{cb}; + $SIG_CB{$signal}{$arg{cb} += 0} = $arg{cb}; $SIG{$signal} ||= sub { $_->() for values %{ $SIG_CB{$signal} || {} }; }; @@ -376,7 +376,7 @@ sub _child_wait { while (0 < (my $pid = waitpid -1, $WNOHANG)) { - $_->() for values %{ (delete $PID_CB{$pid}) || {} }; + $_->() for values %{ $PID_CB{$pid} || {} }, %{ $PID_CB{0} || {} }; } undef $PID_IDLE;