BerkeleyDB-Locks

 view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

		-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 )