[ViewVC] Diff of: cvs/Coro/Coro/Handle.pm

Comparing Coro/Coro/Handle.pm (file contents):
Revision 1.14 by root, Mon Nov 20 19:56:03 2006 UTC vs.
Revision 1.15 by root, Fri Dec 1 02:17:37 2006 UTC

       fh      => $_[0][0],
       desc    => "$_[0][1] readable",
       poll    => 'r',
       cb      => sub {
          $current->ready;
+         undef $current;
       },
    );
    my $t = $_[0][2] && AnyEvent->timer (
       after => $_[0][2],
       cb    => sub {
          $io = 0;
          $current->ready;
+         undef $current;
       },
    );
    &Coro::schedule;
+   &Coro::schedule while $current;
    $io
 }
 sub writable {
    my $current = $Coro::current;
       fh      => $_[0][0],
       desc    => "$_[0][1] writable",
       poll    => 'w',
       cb      => sub {
          $current->ready;
+         undef $current;
       },
    );
    my $t = $_[0][2] && AnyEvent->timer (
       after => $_[0][2],
       cb    => sub {
          $io = 0;
          $current->ready;
+         undef $current;
       },
    );
-   &Coro::schedule;
+   &Coro::schedule while $current;
    $io
 }
 sub WRITE {
    my $len = defined $_[2] ? $_[2] : length $_[1];

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