--- deliantra/server/ext/login.ext	2007/06/10 03:14:04	1.50
+++ deliantra/server/ext/login.ext	2007/06/16 00:12:20	1.54
@@ -1,4 +1,4 @@
-#! perl # MANDATORY
+#! perl # mandatory
 
 # login handling
 
@@ -6,6 +6,8 @@
 use Coro::AIO;
 use List::Util qw(min max);
 
+our %EXT_SETUP;
+
 # paranoia function to overwrite a string-in-place
 sub nuke_str {
    substr $_[0], 0, (length $_[0]), "x" x length $_[0]
@@ -599,8 +601,8 @@
                   my $pl_ref = $pl->refcnt_cnt;
                   my $ob_ref = $ob->refcnt_cnt;
 
-                  ## pl_ref == object + cf::PLAYER + $pl
-                  ## ob_ref == being an object + pl->observe + $ob
+                  ## pl_ref == $pl + ob->contr   + %cf::PLAYER
+                  ## ob_ref == $ob + pl->observe + simply being an object
                   if ($pl_ref == 3 && $ob_ref == 3) {
                      warn "player-scheduler destroy ", $ob->name;#d#
 
@@ -608,13 +610,12 @@
                      $pl = delete $cf::PLAYER{$ob->name};
                      $ob = $pl->ob;
 
-                     $ob->destroy;
-                     $pl->destroy;
+                     $pl->destroy; # destroys $ob
                   } else {
                      my $a_ = $pl->refcnt;#d#
                      my $b_ = $ob->refcnt;#d#
 
-                     warn "player-scheduler refcnt ", $ob->name, " pp$pl_ref,pc$a_ op$ob_ref,oc$b_\n";#d#
+                     warn "player-scheduler refcnt ", $ob->name, " pl $pl_ref ob $ob_ref (C pl $a_ ob $b_)\n";#d#
                   }
                }
             }