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.
