From 8c99d73ee7ce90de2561496f683f3850d1269e1d Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 17 Mar 2000 02:38:51 +0000
Subject: integrate cfgperl contents into mainline

p4raw-id: //depot/perl@5767
---
 ext/Fcntl/Fcntl.xs | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

(limited to 'ext/Fcntl/Fcntl.xs')

diff --git a/ext/Fcntl/Fcntl.xs b/ext/Fcntl/Fcntl.xs
index 8d4a073658..b597e03c1a 100644
--- a/ext/Fcntl/Fcntl.xs
+++ b/ext/Fcntl/Fcntl.xs
@@ -46,7 +46,7 @@ constant(char *name, int arg)
     errno = 0;
     switch (*name) {
     case '_':
-	if (strEQ(name, "_S_IFMT")) /* Yes, _S_IFMT. */
+	if (strEQ(name, "_S_IFMT")) /* Yes, on name _S_IFMT return S_IFMT. */
 #ifdef S_IFMT
 	  return S_IFMT;
 #else
@@ -475,12 +475,30 @@ constant(char *name, int arg)
 	        return O_NOFOLLOW;
 #else
 	        goto not_there;
+#endif
+	    if (strEQ(name, "O_NOINHERIT"))
+#ifdef O_NOINHERIT
+	        return O_NOINHERIT;
+#else
+	        goto not_there;
 #endif
 	    if (strEQ(name, "O_NONBLOCK"))
 #ifdef O_NONBLOCK
 	        return O_NONBLOCK;
 #else
 	        goto not_there;
+#endif
+	    if (strEQ(name, "O_RANDOM"))
+#ifdef O_RANDOM
+	        return O_RANDOM;
+#else
+	        goto not_there;
+#endif
+	    if (strEQ(name, "O_RAW"))
+#ifdef O_RAW
+	        return O_RAW;
+#else
+	        goto not_there;
 #endif
 	    if (strEQ(name, "O_RDONLY"))
 #ifdef O_RDONLY
@@ -499,6 +517,12 @@ constant(char *name, int arg)
 	        return O_RSYNC;
 #else
 	        goto not_there;
+#endif
+	    if (strEQ(name, "O_SEQUENTIAL"))
+#ifdef O_SEQUENTIAL
+	        return O_SEQUENTIAL;
+#else
+	        goto not_there;
 #endif
 	    if (strEQ(name, "O_SHLOCK"))
 #ifdef O_SHLOCK
-- 
cgit v1.2.1