… | … | ||
---|---|---|---|
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 |