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