| … | |
… | |
| 131 | 0666; |
131 | 0666; |
| 132 | |
132 | |
| 133 | $! and die "cannot open database environment $DB_HOME: " . BDB::strerror; |
133 | $! and die "cannot open database environment $DB_HOME: " . BDB::strerror; |
| 134 | |
134 | |
| 135 | # now we go through the registered processes, if there is only one, we verify all files |
135 | # now we go through the registered processes, if there is only one, we verify all files |
| 136 | # to make sure windows didn'T corrupt them (as windows does....) |
136 | # to make sure windows didn't corrupt them (as windows does....) |
| 137 | try_verify_env $env |
137 | try_verify_env $env |
| 138 | or die "database environment failed verification"; |
138 | or die "database environment failed verification"; |
| 139 | |
139 | |
| 140 | $DB_ENV = $env; |
140 | $DB_ENV = $env; |
| 141 | |
141 | |
