… | … | ||
---|---|---|---|
612 | $pl->destroy; | 612 | $pl->destroy; |
613 | } else { | 613 | } else { |
614 | my $a_ = $pl->refcnt;#d# | 614 | my $a_ = $pl->refcnt;#d# |
615 | my $b_ = $ob->refcnt;#d# | 615 | my $b_ = $ob->refcnt;#d# |
616 | 616 | ||
617 | warn "player-scheduler refcnt ", $ob->name, " pp$pl_ref,pc$a_ op$ob_ref,oc$b_\n";#d# | 617 | warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref ob $ob_ref (C pl $a_ ob $b_)\n";#d# |
618 | } | 618 | } |
619 | } | 619 | } |
620 | } | 620 | } |
621 | }; | 621 | }; |
622 | warn $@ if $@; | 622 | warn $@ if $@; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |