#!/usr/bin/perl
use DB_File;
use Mail::SpamAssassin::Locker::UnixNFSSafe;
open(my $fake_lock_fh,'>','__db.breakme');
close($fake_lock_fh);
my $locker = new Mail::SpamAssassin::Locker::UnixNFSSafe;
$locker->safe_lock('breakme', 30, 0600);   # simulate Mail::SpamAssassin::DBBasedAddrList::new_checker's tie in r/w;
tie %x, 'DB_File', 'breakme', O_RDWR | O_CREAT, 0600;
$locker->safe_unlock('breakme');