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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.190 by root, Mon Jan 22 03:44:41 2007 UTC vs.
Revision 1.191 by root, Tue Jan 23 01:05:18 2007 UTC

    for my $signal (qw(INT HUP TERM)) {
       Event->signal (
          reentrant => 0,
          data      => WF_AUTOCANCEL,
          signal    => $signal,
+         prio      => 0,
          cb        => sub {
             cf::cleanup "SIG$signal";
          },
       );
    }
 my $bug_warning = 0;
 $TICK_WATCHER = Event->timer (
    reentrant => 0,
    parked    => 1,
-   prio      => -1,
+   prio      => 0,
    at        => $NEXT_TICK || $TICK,
    data      => WF_AUTOCANCEL,
    cb        => sub {
       if ($Coro::current != $Coro::main) {
          Carp::cluck "major BUG: server tick called outside of main coro, skipping it"
       $NEXT_TICK += $TICK;
       $WAIT_FOR_TICK->broadcast;
       $WAIT_FOR_TICK_ONE->send if $WAIT_FOR_TICK_ONE->awaited;
+      Event::sweep;
+      Coro::cede_notself;
-      my $AFTER = Event::time;
+#      my $AFTER = Event::time;
-      warn $AFTER - $NOW;#d#
+#      warn $AFTER - $NOW;#d#
       # if we are delayed by four ticks or more, skip them all
       $NEXT_TICK = Event::time if Event::time >= $NEXT_TICK + $TICK * 4;
       $TICK_WATCHER->at ($NEXT_TICK);
       $TICK_WATCHER->start;
    },
 );
-IO::AIO::max_poll_time $TICK * 0.2;
+IO::AIO::max_poll_time $TICK * 0.1;
 undef $Coro::AIO::WATCHER;
 $AIO_POLL_WATCHER = Event->io (
    reentrant => 0,
    fd        => IO::AIO::poll_fileno,

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