--- deliantra/server/ext/login.ext	2007/01/07 23:10:42	1.13
+++ deliantra/server/ext/login.ext	2007/01/08 01:19:03	1.14
@@ -365,6 +365,14 @@
                $pl->save;
                Coro::Timer::sleep $SAVE_INTERVAL;
             }
+            my $ob = $pl->ob;
+            Scalar::Util::weaken $pl; # 2 == from object + from perl
+            Scalar::Util::weaken $ob; # 2 == one from being an object + ???
+            my $a_ = $pl->refcnt;
+            my $b_ = $ob->refcnt;
+            my $a = $pl->refcnt_cnt;
+            my $b = $ob->refcnt_cnt;
+               warn "rc $a,$a_ $b,$b_\n";#d#
          };
          warn $@ if $@;
          Coro::cede;
@@ -372,5 +380,7 @@
    }
 };
 
+cf::player::find "schmorp";#d#
+
 $SCHEDULER->prio (1);