ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/lib/AnyEvent.pm
(Generate patch)

Comparing AnyEvent/lib/AnyEvent.pm (file contents):
Revision 1.26 by root, Sun Jul 8 08:52:10 2007 UTC vs.
Revision 1.32 by root, Sat Nov 3 09:29:51 2007 UTC

… …
174 my $w = AnyEvent->signal (signal => "INT", cb => sub { exit 1 }); 174 my $w = AnyEvent->signal (signal => "INT", cb => sub { exit 1 });
175 175
176=head2 CHILD PROCESS WATCHERS 176=head2 CHILD PROCESS WATCHERS
177 177
178You can also listen for the status of a child process specified by the 178You can also listen for the status of a child process specified by the
179C<pid> argument. The watcher will only trigger once. This works by 179C<pid> argument (or any child if the pid argument is 0). The watcher will
180installing a signal handler for C<SIGCHLD>. 180trigger as often as status change for the child are received. This works
181by installing a signal handler for C<SIGCHLD>. The callback will be called with
182the pid and exit status (as returned by waitpid).
181 183
182Example: wait for pid 1333 184Example: wait for pid 1333
183 185
184 my $w = AnyEvent->child (pid => 1333, cb => sub { warn "exit status $?" }); 186 my $w = AnyEvent->child (pid => 1333, cb => sub { warn "exit status $?" });
185 187
… …
195C<AnyEvent::Impl:xxx> modules, but can be any other class in the case 197C<AnyEvent::Impl:xxx> modules, but can be any other class in the case
196AnyEvent has been extended at runtime (e.g. in I<rxvt-unicode>). 198AnyEvent has been extended at runtime (e.g. in I<rxvt-unicode>).
197 199
198The known classes so far are: 200The known classes so far are:
199 201
202 EV::AnyEvent based on EV (an interface to libev, best choice)
200 AnyEvent::Impl::Coro based on Coro::Event, best choise. 203 AnyEvent::Impl::Coro based on Coro::Event, second best choice.
201 AnyEvent::Impl::Event based on Event, also best choice :) 204 AnyEvent::Impl::Event based on Event, also second best choice :)
202 AnyEvent::Impl::Glib based on Glib, second-best choice. 205 AnyEvent::Impl::Glib based on Glib, second-best choice.
203 AnyEvent::Impl::Tk based on Tk, very bad choice. 206 AnyEvent::Impl::Tk based on Tk, very bad choice.
204 AnyEvent::Impl::Perl pure-perl implementation, inefficient. 207 AnyEvent::Impl::Perl pure-perl implementation, inefficient.
205 208
206=item AnyEvent::detect 209=item AnyEvent::detect
… …
248no warnings; 251no warnings;
249use strict; 252use strict;
250 253
251use Carp; 254use Carp;
252 255
253our $VERSION = '2.53'; 256our $VERSION = '2.55';
254our $MODEL; 257our $MODEL;
255 258
256our $AUTOLOAD; 259our $AUTOLOAD;
257our @ISA; 260our @ISA;
258 261
… …
260 263
261our @REGISTRY; 264our @REGISTRY;
262 265
263my @models = ( 266my @models = (
264 [Coro::Event:: => AnyEvent::Impl::Coro::], 267 [Coro::Event:: => AnyEvent::Impl::Coro::],
268 [EV:: => EV::AnyEvent::],
265 [Event:: => AnyEvent::Impl::Event::], 269 [Event:: => AnyEvent::Impl::Event::],
266 [Glib:: => AnyEvent::Impl::Glib::], 270 [Glib:: => AnyEvent::Impl::Glib::],
267 [Tk:: => AnyEvent::Impl::Tk::], 271 [Tk:: => AnyEvent::Impl::Tk::],
268 [AnyEvent::Impl::Perl:: => AnyEvent::Impl::Perl::], 272 [AnyEvent::Impl::Perl:: => AnyEvent::Impl::Perl::],
269); 273);
… …
371our $CHLD_W; 375our $CHLD_W;
372our $PID_IDLE; 376our $PID_IDLE;
373our $WNOHANG; 377our $WNOHANG;
374 378
375sub _child_wait { 379sub _child_wait {
376 while (0 < (my $pid = waitpid -1, $WNOHANG)) { 380 while (0 <= (my $pid = waitpid -1, $WNOHANG)) {
377 $_->() for values %{ (delete $PID_CB{$pid}) || {} }; 381 $_->($pid, $?) for (values %{ $PID_CB{$pid} || {} }),
382 (values %{ $PID_CB{0} || {} });
378 } 383 }
379 384
380 undef $PID_IDLE; 385 undef $PID_IDLE;
381} 386}
382 387
383sub child { 388sub child {
384 my (undef, %arg) = @_; 389 my (undef, %arg) = @_;
385 390
386 my $pid = uc $arg{pid} 391 defined (my $pid = $arg{pid} + 0)
387 or Carp::croak "required option 'pid' is missing"; 392 or Carp::croak "required option 'pid' is missing";
388 393
389 $PID_CB{$pid}{$arg{cb}} = $arg{cb}; 394 $PID_CB{$pid}{$arg{cb}} = $arg{cb};
390 395
391 unless ($WNOHANG) { 396 unless ($WNOHANG) {

Diff Legend

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