… | |
… | |
3728 | }; |
3728 | }; |
3729 | |
3729 | |
3730 | cf::object::thawer::errors_are_fatal 0; |
3730 | cf::object::thawer::errors_are_fatal 0; |
3731 | info "parse errors in files are no longer fatal from this point on.\n"; |
3731 | info "parse errors in files are no longer fatal from this point on.\n"; |
3732 | |
3732 | |
3733 | my $free_main; $free_main = EV::idle sub { |
3733 | AE::postpone { |
3734 | undef $free_main; |
|
|
3735 | undef &main; # free gobs of memory :) |
3734 | undef &main; # free gobs of memory :) |
3736 | }; |
3735 | }; |
3737 | |
3736 | |
3738 | goto &main_loop; |
3737 | goto &main_loop; |
3739 | } |
3738 | } |
… | |
… | |
3896 | |
3895 | |
3897 | cf::write_runtime_sync; # external watchdog should not bark |
3896 | cf::write_runtime_sync; # external watchdog should not bark |
3898 | |
3897 | |
3899 | trace "emergency_perl_save: flushing outstanding aio requests"; |
3898 | trace "emergency_perl_save: flushing outstanding aio requests"; |
3900 | while (IO::AIO::nreqs || BDB::nreqs) { |
3899 | while (IO::AIO::nreqs || BDB::nreqs) { |
3901 | Coro::EV::timer_once 0.01; # let the sync_job do it's thing |
3900 | Coro::AnyEvent::sleep 0.01; # let the sync_job do it's thing |
3902 | } |
3901 | } |
3903 | |
3902 | |
3904 | cf::write_runtime_sync; # external watchdog should not bark |
3903 | cf::write_runtime_sync; # external watchdog should not bark |
3905 | }; |
3904 | }; |
3906 | |
3905 | |
… | |
… | |
4143 | { |
4142 | { |
4144 | # configure BDB |
4143 | # configure BDB |
4145 | |
4144 | |
4146 | BDB::min_parallel 16; |
4145 | BDB::min_parallel 16; |
4147 | BDB::max_poll_reqs $TICK * 0.1; |
4146 | BDB::max_poll_reqs $TICK * 0.1; |
4148 | $AnyEvent::BDB::WATCHER->priority (1); |
4147 | #$AnyEvent::BDB::WATCHER->priority (1); |
4149 | |
4148 | |
4150 | unless ($DB_ENV) { |
4149 | unless ($DB_ENV) { |
4151 | $DB_ENV = BDB::db_env_create; |
4150 | $DB_ENV = BDB::db_env_create; |
4152 | $DB_ENV->set_flags (BDB::AUTO_COMMIT | BDB::REGION_INIT); |
4151 | $DB_ENV->set_flags (BDB::AUTO_COMMIT | BDB::REGION_INIT); |
4153 | $DB_ENV->set_flags (&BDB::LOG_AUTOREMOVE ) if BDB::VERSION v0, v4.7; |
4152 | $DB_ENV->set_flags (&BDB::LOG_AUTOREMOVE ) if BDB::VERSION v0, v4.7; |