From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 10 Dec 2001 18:25:30 +0000 (+0000)
Subject: Silence BeOS compilation moaning.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c21fb2b8c48331d89b906fb965cfe30006323e4e;p=p5sagit%2Fp5-mst-13.2.git

Silence BeOS compilation moaning.

p4raw-id: //depot/perl@13601
---

diff --git a/perl.h b/perl.h
index c9d359c..c3720a4 100644
--- a/perl.h
+++ b/perl.h
@@ -931,11 +931,15 @@ int sockatmark(int);
 #   define S_IRWXO (S_IROTH|S_IWOTH|S_IXOTH)
 #endif
 
-#ifndef S_IREAD
+/* BeOS 5.0 seems to define S_IREAD and S_IWRITE in <posix/fcntl.h>
+ * which would get included through <sys/file.h >, but that is 3000
+ * lines in the future.  --jhi */
+
+#if !defined(S_IREAD) && !defined(__BEOS__)
 #   define S_IREAD S_IRUSR
 #endif
 
-#ifndef S_IWRITE
+#if !defined(S_IWRITE) && !defined(__BEOS__)
 #   define S_IWRITE S_IWUSR
 #endif