… | |
… | |
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; |
|
|
84 | |
83 | |
85 | $DB_ENV = new BerkeleyDB::Env |
84 | $DB_ENV = new BerkeleyDB::Env |
86 | -Home => "$Crossfire::VARDIR/cfplus", |
85 | -Home => "$Crossfire::VARDIR/cfplus", |
87 | -Cachesize => 1_000_000, |
86 | -Cachesize => 1_000_000, |
88 | -ErrFile => "$Crossfire::VARDIR/cfplus/errorlog.txt", |
87 | -ErrFile => "$Crossfire::VARDIR/cfplus/errorlog.txt", |