| … | |
… | |
| 78 | use strict; |
78 | use strict; |
| 79 | |
79 | |
| 80 | my $recover = $BerkeleyDB::db_version >= 4.4 |
80 | my $recover = $BerkeleyDB::db_version >= 4.4 |
| 81 | ? eval "DB_REGISTER | DB_RECOVER" |
81 | ? eval "DB_REGISTER | DB_RECOVER" |
| 82 | : 0; |
82 | : 0; |
|
|
83 | warn $recover; |
| 83 | |
84 | |
| 84 | $DB_ENV = new BerkeleyDB::Env |
85 | $DB_ENV = new BerkeleyDB::Env |
| 85 | -Home => "$Crossfire::VARDIR/cfplus", |
86 | -Home => "$Crossfire::VARDIR/cfplus", |
| 86 | -Cachesize => 1_000_000, |
87 | -Cachesize => 1_000_000, |
| 87 | -ErrFile => "$Crossfire::VARDIR/cfplus/errorlog.txt", |
88 | -ErrFile => "$Crossfire::VARDIR/cfplus/errorlog.txt", |
