--- deliantra/server/ext/login.ext	2007/01/07 23:10:42	1.13
+++ deliantra/server/ext/login.ext	2007/01/08 12:23:32	1.15
@@ -294,7 +294,7 @@
 
       return cf::override 0 unless $ob->type == cf::PLAYER;
 
-      my $pl = $ob->pl;
+      my $pl = $ob->contr;
 
       # update respawn position
       $pl->savebed ($bed->map->path, $bed->x, $bed->y);
@@ -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;