Merged with master and am ready to merge back

[dbsrgits/DBM-Deep.git] / t / common.pm

diff --git a/t/common.pm b/t/common.pm
index a4c61d6..eda627c 100644 (file)
--- a/t/common.pm
+++ b/t/common.pm
@@ -15,7 +15,7 @@ use File::Temp qw( tempfile tempdir );
 use Fcntl qw( :flock );
 
 my $parent = $ENV{WORK_DIR} || File::Spec->tmpdir;
-my $dir = tempdir( CLEANUP => 1, DIR => $parent );
+our $dir = tempdir( CLEANUP => 1, DIR => $parent );
 
 sub new_fh {
     my ($fh, $filename) = tempfile( 'tmpXXXX', DIR => $dir, UNLINK => 1 );