sub init
{
- $dbm = tie (%d, 'DB_File', $fn) or confess "can't open dupe file: $fn ($!)";
+ $dbm = tie (%d, 'DB_File', $fn);
unless ($dbm) {
eval { untie %d };
dbg("Dupefile $fn corrupted, removing...");
sub find
{
- return 1 if exists $d{$_[0]};
+ return $d{$_[0]};
}
sub add