X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F09_deeparray.t;h=288492b8c03c3113337fed62704ad06e5ab7b75c;hb=ea2f6d67a29408b40e8b5c936f689751fdffb830;hp=749e41110e951e53969bb054840fdd8250996a84;hpb=58910373ba1f3191dc7ac6cadafc6e61de2e10be;p=dbsrgits%2FDBM-Deep.git

diff --git a/t/09_deeparray.t b/t/09_deeparray.t
index 749e411..288492b 100644
--- a/t/09_deeparray.t
+++ b/t/09_deeparray.t
@@ -3,14 +3,11 @@
 ##
 use strict;
 use Test::More tests => 3;
-use File::Temp qw( tempfile tempdir );
-use Fcntl qw( :flock );
+use t::common qw( new_fh );
 
 use_ok( 'DBM::Deep' );
 
-my $dir = tempdir( CLEANUP => 1 );
-my ($fh, $filename) = tempfile( 'tmpXXXX', UNLINK => 1, DIR => $dir );
-flock $fh, LOCK_UN;
+my ($fh, $filename) = new_fh();
 
 my $max_levels = 1000;