--- deliantra/server/ext/login.ext	2007/06/10 03:16:54	1.52
+++ 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]
@@ -608,8 +610,7 @@
                      $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#