X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F29_freespace_manager.t;h=abf568355a9216cfcd44969009c9b60711056281;hb=96041a257f0523eaa1e0d0a1e6e4c98120618464;hp=d6b18fb1ed62b0e0b809a4c143e54d8ed0c5ff41;hpb=a21f2d90935286a81dbaa6299707e140060e52d3;p=dbsrgits%2FDBM-Deep.git diff --git a/t/29_freespace_manager.t b/t/29_freespace_manager.t index d6b18fb..abf5683 100644 --- a/t/29_freespace_manager.t +++ b/t/29_freespace_manager.t @@ -2,10 +2,12 @@ use strict; use Test::More tests => 3; use File::Temp qw( tempfile ); +use Fcntl qw( :flock ); use_ok( 'DBM::Deep' ); my ($fh, $filename) = tempfile( 'tmpXXXX', UNLINK => 1 ); +flock $fh, LOCK_UN; my $db = DBM::Deep->new({ file => $filename, autoflush => 1,