| … | … | ||
|---|---|---|---|
| 498 | my $old = $_[0]{desc}; | 498 | my $old = $_[0]{desc}; |
| 499 | $_[0]{desc} = $_[1] if @_ > 1; | 499 | $_[0]{desc} = $_[1] if @_ > 1; |
| 500 | $old; | 500 | $old; |
| 501 | } | 501 | } |
| 502 | 502 | ||
| 503 | sub transfer { | ||
| 504 | require Carp; | ||
| 505 | Carp::croak ("You must not call ->transfer on Coro objects. Use Coro::State objects or the ->schedule_to method. Caught"); | ||
| 506 | } | ||
| 507 | |||
| 503 | =back | 508 | =back |
| 504 | 509 | ||
| 505 | =head2 GLOBAL FUNCTIONS | 510 | =head2 GLOBAL FUNCTIONS |
| 506 | 511 | ||
| 507 | =over 4 | 512 | =over 4 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |