[ViewVC] Diff of: cvs/AnyEvent/lib/AnyEvent.pm

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.30 by root, Fri Nov 2 19:12:02 2007 UTC vs.
Revision 1.31 by root, Fri Nov 2 19:20:36 2007 UTC

    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. The watcher will only trigger once. This works by
+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
-installing a signal handler for C<SIGCHLD>.
+by installing a signal handler for C<SIGCHLD>.
 Example: wait for pid 1333
   my $w = AnyEvent->child (pid => 1333, cb => sub { warn "exit status $?" });
    my (undef, %arg) = @_;
    my $signal = uc $arg{signal}
       or Carp::croak "required option 'signal' is missing";
-   $SIG_CB{$signal}{$arg{cb} += 0} = $arg{cb};
+   $SIG_CB{$signal}{$arg{cb}} = $arg{cb};
    $SIG{$signal} ||= sub {
       $_->() for values %{ $SIG_CB{$signal} || {} };
    };
    bless [$signal, $arg{cb}], "AnyEvent::Base::Signal"
 our $PID_IDLE;
 our $WNOHANG;
 sub _child_wait {
    while (0 < (my $pid = waitpid -1, $WNOHANG)) {
-      $_->() for values %{ $PID_CB{$pid} || {} }, %{ $PID_CB{0} || {} };
+      $_->() for (values %{ $PID_CB{$pid} || {} }),
+                 (values %{ $PID_CB{0}    || {} });
    }
    undef $PID_IDLE;
 }
 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};
    unless ($WNOHANG) {

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines