Changeset 115
- Timestamp:
- 13.12.2006 11:55:11 (2 years ago)
- Files:
-
- trunk/devel/FuzzyOcr/Hashing.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/devel/FuzzyOcr/Hashing.pm
r114 r115 144 144 use MLDBM::Sync; 145 145 my %DB = (); my $dbm; my $sdbm; 146 $sdbm = tie %DB, 'MLDBM::Sync', $dbfile, O_ RDWR or $ret++;146 $sdbm = tie %DB, 'MLDBM::Sync', $dbfile, O_CREAT|O_RDWR or $ret++; 147 147 if ($ret>0) { 148 148 warnlog("No Image Hash database found at \"$dbfile\", or permissions wrong.");
