PERFORCE change 11501 for review

[email protected] (Chris Nandor) Mon, 30 Jul 2001 10:04:50 -0400

Newsgroups	perl.perl5.changes.mac
Message-ID	<p05100304b78b19f836fc@[10.0.1.107]>

Change 11501 by pudge@pudge-mobile on 2001/07/30 12:57:56

	Fix O_RDONLY check to check for O_RDONLY.

Affected files ...

... //depot/maint-5.6/macperl/doio.c#2 edit

Differences ...

==== //depot/maint-5.6/macperl/doio.c#2 (text) ====
Index: perl/doio.c
--- perl/doio.c.~1~	Mon Jul 30 07:00:06 2001
+++ perl/doio.c	Mon Jul 30 07:00:06 2001
@@ -137,7 +137,7 @@
 	     break;
 	}
 
-	writing = (result > 0);
+	writing = (result != O_RDONLY);
 	fd = PerlLIO_open3(name, rawmode, rawperm);
 
 	if (fd == -1)
End of Patch.