From: Abhijit Menon-Sen <ams@wiw.org>
Date: Tue, 2 Apr 2002 04:42:44 +0000 (+0000)
Subject:    Win32 fix for Tie::File from MJD.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95f363667835e95a52a0dfcf729978805271e247;p=p5sagit%2Fp5-mst-13.2.git

   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
--- 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