… | |
… | |
3797 | cf::write_runtime_sync; # external watchdog should not bark |
3797 | cf::write_runtime_sync; # external watchdog should not bark |
3798 | |
3798 | |
3799 | trace "emergency_perl_save: syncing database to disk"; |
3799 | trace "emergency_perl_save: syncing database to disk"; |
3800 | BDB::db_env_txn_checkpoint $DB_ENV; |
3800 | BDB::db_env_txn_checkpoint $DB_ENV; |
3801 | |
3801 | |
3802 | info "emergency_perl_save: starting sync()\n"; |
3802 | info "emergency_perl_save: starting sync\n"; |
3803 | IO::AIO::aio_sync sub { |
3803 | IO::AIO::aio_sync sub { |
3804 | info "emergency_perl_save: finished sync()\n"; |
3804 | info "emergency_perl_save: finished sync\n"; |
3805 | }; |
3805 | }; |
3806 | |
3806 | |
3807 | cf::write_runtime_sync; # external watchdog should not bark |
3807 | cf::write_runtime_sync; # external watchdog should not bark |
3808 | |
3808 | |
3809 | trace "emergency_perl_save: flushing outstanding aio requests"; |
3809 | trace "emergency_perl_save: flushing outstanding aio requests"; |