--- AnyEvent/lib/AnyEvent.pm 2007/04/11 00:36:59 1.25 +++ AnyEvent/lib/AnyEvent.pm 2007/11/02 19:20:36 1.31 @@ -176,8 +176,9 @@ =head2 CHILD PROCESS WATCHERS You can also listen for the status of a child process specified by the -C argument. The watcher will only trigger once. This works by -installing a signal handler for C. +C argument (or any child if the pid argument is 0). The watcher will +trigger as often as status change for the child are received. This works +by installing a signal handler for C. Example: wait for pid 1333 @@ -197,8 +198,9 @@ The known classes so far are: - AnyEvent::Impl::Coro based on Coro::Event, best choise. - 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. @@ -250,7 +252,7 @@ use Carp; -our $VERSION = '2.52'; +our $VERSION = '2.55'; our $MODEL; our $AUTOLOAD; @@ -262,6 +264,7 @@ my @models = ( [Coro::Event:: => AnyEvent::Impl::Coro::], + [EV:: => EV::AnyEvent::], [Event:: => AnyEvent::Impl::Event::], [Glib:: => AnyEvent::Impl::Glib::], [Tk:: => AnyEvent::Impl::Tk::], @@ -374,7 +377,8 @@ sub _child_wait { while (0 < (my $pid = waitpid -1, $WNOHANG)) { - $_->() for values %{ (delete $PID_CB{$pid}) || {} }; + $_->() for (values %{ $PID_CB{$pid} || {} }), + (values %{ $PID_CB{0} || {} }); } undef $PID_IDLE; @@ -383,7 +387,7 @@ sub child { my (undef, %arg) = @_; - my $pid = uc $arg{pid} + defined (my $pid = $arg{pid} + 0) or Carp::croak "required option 'pid' is missing"; $PID_CB{$pid}{$arg{cb}} = $arg{cb};