From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Mon, 10 Mar 2008 00:12:16 +0000 (+0000)
Subject: Added opening for the files (stupid win32 warnings)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7db6d8281c4f6769ee28a0451ebeaa4331350a30;p=dbsrgits%2FDBM-Deep.git

Added opening for the files (stupid win32 warnings)
---

diff --git a/t/02_hash.t b/t/02_hash.t
index 57d0408..6e9972a 100644
--- 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
--- 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
--- 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,