Workaround hack for Win32 and autovivification

diff --git a/lib/DBM/Deep/File.pm b/lib/DBM/Deep/File.pm
index c81b3f5..a37b4a3 100644 (file)
--- a/lib/DBM/Deep/File.pm
+++ b/lib/DBM/Deep/File.pm
@@ -163,6 +163,12 @@ sub lock {
 
     $type = LOCK_EX unless defined $type;
 
+    #XXX This is a temporary fix for Win32 and autovivification. It
+    # needs to improve somehow. -RobK, 2008-03-09
+    if ( $^O eq 'MSWin32' || $^O eq 'cygwin' ) {
+        $type = LOCK_EX;
+    }
+
     if (!defined($self->{fh})) { return; }
 
     #XXX This either needs to allow for upgrading a shared lock to an