[ViewVC] Diff of: cvs/deliantra/server/ext/login.ext

Comparing deliantra/server/ext/login.ext (file contents):
Revision 1.13 by root, Sun Jan 7 23:10:42 2007 UTC vs.
Revision 1.16 by root, Mon Jan 8 12:39:16 2007 UTC

    on_apply => sub {
       my ($bed, $ob) = @_;
       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);
       $pl->killer ("left");
       if ($cleanly) {
          $_->ob->message ("$name left the game.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list;
       } else {
          $_->ob->message ("$name uncerimoniously disconnected.", cf::NDI_DK_ORANGE | cf::NDI_UNIQUE) for cf::player::list;
+         delete $pl->{clean_save};
       }
    },
 );
 cf::client->attach (
          eval {
             if ($pl->{last_save} + $SAVE_TIMEOUT <= $cf::RUNTIME) {
                $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;
       };
    }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines