| … | |
… | |
| 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 { |
