Win32 fix for Tie::File from MJD.

p4raw-id: //depot/perl@15672

diff --git a/lib/Tie/File.pm b/lib/Tie/File.pm
index 1186f00..6fd8ff2 100644 (file)
--- a/lib/Tie/File.pm
+++ b/lib/Tie/File.pm
@@ -3,7 +3,8 @@ package Tie::File;
 require 5.005;
 use Carp;
 use POSIX 'SEEK_SET';
-use Fcntl 'O_CREAT', 'O_RDWR', 'LOCK_EX', 'O_ACCMODE', 'O_RDONLY';
+use Fcntl 'O_CREAT', 'O_RDWR', 'LOCK_EX', 'O_WRONLY', 'O_RDONLY';
+sub O_ACCMODE () { O_RDONLY | O_RDWR | O_WRONLY }
 
 $VERSION = "0.91";
 my $DEFAULT_MEMORY_SIZE = 1<<21;    # 2 megabytes