--- deliantra/server/lib/cf.pm	2008/01/14 11:41:48	1.409
+++ deliantra/server/lib/cf.pm	2008/02/01 15:54:07	1.411
@@ -194,10 +194,20 @@
 }
 
 $Coro::State::DIEHOOK = sub {
+   return unless $^S eq 0; # "eq", not "=="
+
+   if ($Coro::current == $Coro::main) {#d#
+      warn "DIEHOOK called in main context, Coro bug?\n";#d#
+      return;#d#
+   }#d#
+
+   # kill coroutine otherwise
    warn Carp::longmess $_[0];
-   Coro::terminate;
+   Coro::terminate
 };
 
+$SIG{__DIE__} = sub { }; #d#?
+
 @safe::cf::global::ISA         = @cf::global::ISA         = 'cf::attachable';
 @safe::cf::object::ISA         = @cf::object::ISA         = 'cf::attachable';
 @safe::cf::player::ISA         = @cf::player::ISA         = 'cf::attachable';
@@ -1308,8 +1318,7 @@
 
                if (exists $v->{meta}{mandatory}) {
                   warn $msg;
-                  warn "mandatory extension failed to load, exiting.\n";
-                  exit 1;
+                  cf::cleanup "mandatory extension failed to load, exiting.";
                }
                
                warn $msg;
@@ -3550,8 +3559,7 @@
       1
    } or do {
       warn $@;
-      warn "error while reloading, exiting.";
-      exit 1;
+      cf::cleanup "error while reloading, exiting.";
    };
 
    warn "reloaded";