Added opening for the files (stupid win32 warnings)

diff --git a/t/02_hash.t b/t/02_hash.t
index 57d0408..6e9972a 100644 (file)
--- a/t/02_hash.t
+++ b/t/02_hash.t
@@ -115,6 +115,7 @@ is( $db->get("key1"), "value222222222222222222222222", "We set a value before cl
 # Make sure DB still works after closing / opening
 ##
 undef $db;
+open $fh, '+<', $filename;
 $db = DBM::Deep->new(
     file => $filename,
     fh => $fh,

diff --git a/t/08_deephash.t b/t/08_deephash.t
index 949817b..5e022c3 100644 (file)
--- a/t/08_deephash.t
+++ b/t/08_deephash.t
@@ -51,6 +51,7 @@ my $max_levels = 1000;
 }
 
 {
+    open $fh, '+<', $filename;
     my $db = DBM::Deep->new(
         file => $filename,
         fh => $fh,

diff --git a/t/09_deeparray.t b/t/09_deeparray.t
index 493cc05..1fe9d0f 100644 (file)
--- a/t/09_deeparray.t
+++ b/t/09_deeparray.t
@@ -35,6 +35,7 @@ my $max_levels = 1000;
 }
 
 {
+    open $fh, '+<', $filename;
     my $db = DBM::Deep->new(
         file => $filename,
         fh => $fh,