--- cvsroot/Coro/Coro.pm 2008/11/19 05:52:42 1.224 +++ cvsroot/Coro/Coro.pm 2008/11/19 15:29:57 1.225 @@ -373,16 +373,10 @@ =cut -sub _run_coro { +sub _terminate { terminate &{+shift}; } -sub new { - my $class = shift; - - $class->SUPER::new (\&_run_coro, @_) -} - =item $success = $coroutine->ready Put the given coroutine into the end of its ready queue (there is one