… | |
… | |
117 | new CFClient::Database |
117 | new CFClient::Database |
118 | -Env => $DB_ENV, |
118 | -Env => $DB_ENV, |
119 | -Filename => $table, |
119 | -Filename => $table, |
120 | # -Filename => "database", |
120 | # -Filename => "database", |
121 | # -Subname => $table, |
121 | # -Subname => $table, |
|
|
122 | -Property => DB_CHKSUM, |
122 | -Flags => DB_CREATE | DB_UPGRADE, |
123 | -Flags => DB_CREATE | DB_UPGRADE, |
123 | or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"; |
124 | or die "unable to create/open database table $_[0]: $BerkeleyDB::Error"; |
124 | } |
125 | } |
125 | |
126 | |
126 | package CFClient::Database; |
127 | package CFClient::Database; |