--- AnyEvent/lib/AnyEvent.pm	2006/12/10 23:59:15	1.19
+++ AnyEvent/lib/AnyEvent.pm	2007/11/03 09:29:51	1.32
@@ -162,7 +162,9 @@
 =head2 SIGNAL WATCHERS
 
 You can listen for signals using a signal watcher, C<signal> is the signal
-I<name> without any C<SIG> prefix.
+I<name> without any C<SIG> prefix. Multiple signals events can be clumped
+together into one callback invocation, and callback invocation might or
+might not be asynchronous.
 
 These watchers might use C<%SIG>, so programs overwriting those signals
 directly will likely not work correctly.
@@ -171,6 +173,18 @@
 
    my $w = AnyEvent->signal (signal => "INT", cb => sub { exit 1 });
 
+=head2 CHILD PROCESS WATCHERS
+
+You can also listen for the status of a child process specified by the
+C<pid> 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<SIGCHLD>. The callback will be called with
+the pid and exit status (as returned by waitpid).
+
+Example: wait for pid 1333
+
+  my $w = AnyEvent->child (pid => 1333, cb => sub { warn "exit status $?" });
+
 =head1 GLOBALS
 
 =over 4
@@ -185,8 +199,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.
@@ -235,9 +250,10 @@
 
 no warnings;
 use strict;
+
 use Carp;
 
-our $VERSION = '2.5';
+our $VERSION = '2.55';
 our $MODEL;
 
 our $AUTOLOAD;
@@ -249,6 +265,7 @@
 
 my @models = (
    [Coro::Event::          => AnyEvent::Impl::Coro::],
+   [EV::                   => EV::AnyEvent::],
    [Event::                => AnyEvent::Impl::Event::],
    [Glib::                 => AnyEvent::Impl::Glib::],
    [Tk::                   => AnyEvent::Impl::Tk::],
@@ -278,7 +295,9 @@
 
          for (@REGISTRY, @models) {
             my ($package, $model) = @$_;
-            if (eval "require $model") {
+            if (eval "require $package"
+                and ${"$package\::VERSION"} > 0
+                and eval "require $model") {
                $MODEL = $model;
                warn "AnyEvent: autoprobed and loaded model '$model', using it.\n" if $verbose > 1;
                last;
@@ -310,7 +329,21 @@
 
 package AnyEvent::Base;
 
-# default implementation for signal
+# default implementation for ->condvar, ->wait, ->broadcast
+
+sub condvar {
+   bless \my $flag, "AnyEvent::Base::CondVar"
+}
+
+sub AnyEvent::Base::CondVar::broadcast {
+   ${$_[0]}++;
+}
+
+sub AnyEvent::Base::CondVar::wait {
+   AnyEvent->one_event while !${$_[0]};
+}
+
+# default implementation for ->signal
 
 our %SIG_CB;
 
@@ -320,14 +353,12 @@
    my $signal = uc $arg{signal}
       or Carp::croak "required option 'signal' is missing";
 
-   my $w = bless [$signal, $arg{cb}], "AnyEvent::Base::Signal";
-
    $SIG_CB{$signal}{$arg{cb}} = $arg{cb};
    $SIG{$signal} ||= sub {
-      $_->() for values %{ $SIG_CB{$signal} };
+      $_->() for values %{ $SIG_CB{$signal} || {} };
    };
 
-   $w
+   bless [$signal, $arg{cb}], "AnyEvent::Base::Signal"
 }
 
 sub AnyEvent::Base::Signal::DESTROY {
@@ -338,6 +369,52 @@
    $SIG{$signal} = 'DEFAULT' unless keys %{ $SIG_CB{$signal} };
 }
 
+# default implementation for ->child
+
+our %PID_CB;
+our $CHLD_W;
+our $PID_IDLE;
+our $WNOHANG;
+
+sub _child_wait {
+   while (0 <= (my $pid = waitpid -1, $WNOHANG)) {
+      $_->($pid, $?) for (values %{ $PID_CB{$pid} || {} }),
+                         (values %{ $PID_CB{0}    || {} });
+   }
+
+   undef $PID_IDLE;
+}
+
+sub child {
+   my (undef, %arg) = @_;
+
+   defined (my $pid = $arg{pid} + 0)
+      or Carp::croak "required option 'pid' is missing";
+
+   $PID_CB{$pid}{$arg{cb}} = $arg{cb};
+
+   unless ($WNOHANG) {
+      $WNOHANG = eval { require POSIX; &POSIX::WNOHANG } || 1;
+   }
+
+   unless ($CHLD_W) {
+      $CHLD_W = AnyEvent->signal (signal => 'CHLD', cb => \&_child_wait);
+      # child could be a zombie already
+      $PID_IDLE ||= AnyEvent->timer (after => 0, cb => \&_child_wait);
+   }
+
+   bless [$pid, $arg{cb}], "AnyEvent::Base::Child"
+}
+
+sub AnyEvent::Base::Child::DESTROY {
+   my ($pid, $cb) = @{$_[0]};
+
+   delete $PID_CB{$pid}{$cb};
+   delete $PID_CB{$pid} unless keys %{ $PID_CB{$pid} };
+
+   undef $CHLD_W unless keys %PID_CB;
+}
+
 =head1 SUPPLYING YOUR OWN EVENT MODEL INTERFACE
 
 If you need to support another event library which isn't directly
@@ -370,7 +447,7 @@
 I<rxvt-unicode> also cheats a bit by not providing blocking access to
 condition variables: code blocking while waiting for a condition will
 C<die>. This still works with most modules/usages, and blocking calls must
-not be in an interactive appliation, so it makes sense.
+not be in an interactive application, so it makes sense.
 
 =head1 ENVIRONMENT VARIABLES