BerkeleyDB-Locks
view release on metacpan or search on metacpan
-Flags => DB_CREATE,
-Filename => 'dbfoo',
;
local $SIG{ALRM} = sub { $flag = undef } ;
$db{test} = 'failed' ;
print stderr " attempting read lock...\n" ;
my ( $k, $v ) ;
my $c = $db->db_cursor ;
$c->c_get( $k, $v, DB_FIRST ) ;
alarm( 4 ) ;
while ( $flag ) {
sleep 1 ;
}
alarm( 0 ) ;
## don't know how to get this to display correctly...
ok( $db{test}, 'ok' ) ;
( run in 0.230 second using v1.01-cache-2.11-cpan-4d50c553e7e )