… | |
… | |
3630 | _post_tick; |
3630 | _post_tick; |
3631 | }; |
3631 | }; |
3632 | $TICK_WATCHER->priority (EV::MAXPRI); |
3632 | $TICK_WATCHER->priority (EV::MAXPRI); |
3633 | |
3633 | |
3634 | { |
3634 | { |
|
|
3635 | # configure BDB |
|
|
3636 | |
3635 | BDB::min_parallel 8; |
3637 | BDB::min_parallel 8; |
3636 | BDB::max_poll_reqs $TICK * 0.1; |
3638 | BDB::max_poll_reqs $TICK * 0.1; |
3637 | |
3639 | |
3638 | unless ($DB_ENV) { |
3640 | unless ($DB_ENV) { |
3639 | $DB_ENV = BDB::db_env_create; |
3641 | $DB_ENV = BDB::db_env_create; |
… | |
… | |
3668 | BDB::db_env_memp_trickle $DB_ENV, 20, 0, sub { }; |
3670 | BDB::db_env_memp_trickle $DB_ENV, 20, 0, sub { }; |
3669 | }; |
3671 | }; |
3670 | } |
3672 | } |
3671 | |
3673 | |
3672 | { |
3674 | { |
|
|
3675 | # configure IO::AIO |
|
|
3676 | |
3673 | IO::AIO::min_parallel 8; |
3677 | IO::AIO::min_parallel 8; |
3674 | |
|
|
3675 | undef $Coro::AIO::WATCHER; |
|
|
3676 | IO::AIO::max_poll_time $TICK * 0.1; |
3678 | IO::AIO::max_poll_time $TICK * 0.1; |
3677 | $AIO_POLL_WATCHER = EV::io IO::AIO::poll_fileno, EV::READ, \&IO::AIO::poll_cb; |
|
|
3678 | } |
3679 | } |
3679 | |
3680 | |
3680 | my $_log_backtrace; |
3681 | my $_log_backtrace; |
3681 | |
3682 | |
3682 | sub _log_backtrace { |
3683 | sub _log_backtrace { |