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

Comparing Coro/Coro/Debug.pm (file contents):
Revision 1.41 by root, Mon Dec 3 22:48:06 2007 UTC vs.
Revision 1.42 by root, Mon Dec 3 23:13:38 2007 UTC

414 fh => $fh, 414 fh => $fh,
415 path => $path, 415 path => $path,
416 }, $class; 416 }, $class;
417 417
418 $self->{cw} = AnyEvent->io (fh => $fh, poll => 'r', cb => sub { 418 $self->{cw} = AnyEvent->io (fh => $fh, poll => 'r', cb => sub {
419 my $fh = $fh->accept; 419 if (my $fh = $fh->accept) {
420 Coro::async_pool { 420 Coro::async_pool {
421 $Coro::current->desc ("[Coro::Debug session]"); 421 $Coro::current->desc ("[Coro::Debug session]");
422 session $fh; 422 session $fh;
423 };
423 }; 424 }
424 }); 425 });
425 426
426 $self 427 $self
427} 428}
428 429

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines