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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.399 by root, Sun Dec 16 02:50:33 2007 UTC vs.
Revision 1.401 by root, Mon Dec 17 06:45:53 2007 UTC

 use Opcode;
 use Safe;
 use Safe::Hole;
 use Storable ();
-use Coro 4.1 ();
+use Coro 4.32 ();
 use Coro::State;
 use Coro::Handle;
 use Coro::EV;
 use Coro::Timer;
 use Coro::Signal;
 use Coro::Semaphore;
 use Coro::AIO;
+use Coro::BDB;
 use Coro::Storable;
 use Coro::Util ();
 use JSON::XS 2.01 ();
 use BDB ();
    _post_tick;
 };
 $TICK_WATCHER->priority (EV::MAXPRI);
 {
+   # configure BDB
    BDB::min_parallel 8;
-   BDB::max_poll_time $TICK * 0.1;
+   BDB::max_poll_reqs $TICK * 0.1;
-   $BDB_POLL_WATCHER = EV::io BDB::poll_fileno, EV::READ, \&BDB::poll_cb;
-   BDB::set_sync_prepare {
-      my $status;
-      my $current = $Coro::current;
-      (
-         sub {
-            $status = $!;
-            $current->ready; undef $current;
-         },
-         sub {
-            Coro::schedule while defined $current;
-            $! = $status;
-         },
-      )
-   };
    unless ($DB_ENV) {
       $DB_ENV = BDB::db_env_create;
       $DB_ENV->set_flags (BDB::AUTO_COMMIT | BDB::REGION_INIT | BDB::TXN_NOSYNC
                           | BDB::LOG_AUTOREMOVE, 1);
       BDB::db_env_memp_trickle $DB_ENV, 20, 0, sub { };
    };
 }
 {
+   # configure IO::AIO
    IO::AIO::min_parallel 8;
-   undef $Coro::AIO::WATCHER;
    IO::AIO::max_poll_time $TICK * 0.1;
-   $AIO_POLL_WATCHER = EV::io IO::AIO::poll_fileno, EV::READ, \&IO::AIO::poll_cb;
 }
 my $_log_backtrace;
 sub _log_backtrace {

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