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