[ViewVC] Diff of: cvs/deliantra/server/lib/cf.pm

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.408 by root, Mon Jan 14 10:12:12 2008 UTC vs.
Revision 1.410 by root, Tue Jan 15 12:02:24 2008 UTC

       LOG llevError, $msg;
    };
 }
 $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';
 @safe::cf::client::ISA         = @cf::client::ISA         = 'cf::attachable';
 sub reload_perl() {
    # doing reload synchronously and two reloads happen back-to-back,
    # coro crashes during coro_state_free->destroy here.
    $RELOAD_WATCHER ||= EV::timer 0, 0, sub {
+      do_reload_perl;
       undef $RELOAD_WATCHER;
-      do_reload_perl;
    };
 }
 register_command "reload" => sub {
    my ($who, $arg) = @_;

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