| … | |
… | |
| 6 | mkdir $DB_HOME, 0700; |
6 | mkdir $DB_HOME, 0700; |
| 7 | |
7 | |
| 8 | $db_env = new BerkeleyDB::Env |
8 | $db_env = new BerkeleyDB::Env |
| 9 | -Home => $DB_HOME, |
9 | -Home => $DB_HOME, |
| 10 | -Cachesize => 1_000_000, |
10 | -Cachesize => 1_000_000, |
| 11 | -ErrFile => \*STDOUT, |
11 | -ErrFile => "/proc/self/fd/2", |
| 12 | -ErrPrefix => "DATABASE", |
12 | -ErrPrefix => "DATABASE", |
| 13 | -Verbose => 1, |
13 | -Verbose => 1, |
| 14 | -Flags => DB_CREATE|DB_RECOVER|DB_RECOVER_FATAL|DB_INIT_MPOOL|DB_INIT_TXN |
14 | -Flags => DB_CREATE|DB_RECOVER|DB_INIT_MPOOL|DB_INIT_TXN |
| 15 | or die "unable to create database home $DB_HOME"; |
15 | or die "unable to create database home $DB_HOME"; |
| 16 | } |
16 | } |
| 17 | |
17 | |
| 18 | 1; |
18 | 1; |
