… | |
… | |
366 | unless ($pl->active) { |
366 | unless ($pl->active) { |
367 | # check refcounts, this is tricky and needs to be adjusted to fit server internals |
367 | # check refcounts, this is tricky and needs to be adjusted to fit server internals |
368 | my $ob = $pl->ob; |
368 | my $ob = $pl->ob; |
369 | Scalar::Util::weaken $pl; |
369 | Scalar::Util::weaken $pl; |
370 | Scalar::Util::weaken $ob; |
370 | Scalar::Util::weaken $ob; |
371 | my $a_ = $pl->refcnt; |
371 | my $a_ = $pl->refcnt;#d# |
372 | my $b_ = $ob->refcnt; |
372 | my $b_ = $ob->refcnt;#d# |
373 | my $pl_ref = $pl->refcnt_cnt; |
373 | my $pl_ref = $pl->refcnt_cnt; |
374 | my $ob_ref = $ob->refcnt_cnt; |
374 | my $ob_ref = $ob->refcnt_cnt; |
375 | |
375 | |
376 | ## pl_ref == one from object + one from cf::PLAYER |
376 | ## pl_ref == one from object + one from cf::PLAYER |
377 | ## ob_ref == one from simply being an object |
377 | ## ob_ref == one from simply being an object |