… | … | ||
---|---|---|---|
549 | $pl->destroy; # destroys $ob | 549 | $pl->destroy; # destroys $ob |
550 | } else { | 550 | } else { |
551 | my $a_ = $pl->refcnt;#d# | 551 | my $a_ = $pl->refcnt;#d# |
552 | my $b_ = $ob->refcnt;#d# | 552 | my $b_ = $ob->refcnt;#d# |
553 | 553 | ||
554 | warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref ob $ob_ref (C pl $a_ ob $b_)\n";#d# | 554 | warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref/3 ob $ob_ref/3 (C pl $a_/1 ob $b_/2)\n";#d# |
555 | } | 555 | } |
556 | } | 556 | } |
557 | } | 557 | } |
558 | }; | 558 | }; |
559 | warn $@ if $@; | 559 | warn $@ if $@; |
560 | Coro::cede; | 560 | cf::cede_to_tick; |
561 | }; | 561 | }; |
562 | } | 562 | } |
563 | }; | 563 | }; |
564 | 564 | ||
565 | $SCHEDULER->prio (1); | 565 | $SCHEDULER->prio (1); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |