From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Tue, 9 Oct 2007 12:00:27 +0000 (+0000)
Subject: Fix fallback definitions of S_IRWX[UGO] (didn't include
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d46b2a5c45b9ec1990344d1606dd8e4395269ba6;p=p5sagit%2Fp5-mst-13.2.git

Fix fallback definitions of S_IRWX[UGO] (didn't include
the 'X', but 'W' twice) and fix the value of IPC_GETACL,
which was set to IPC_EXCL.

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

diff --git a/ext/IPC/SysV/SysV.xs b/ext/IPC/SysV/SysV.xs
index 1126711..deaa8e8 100644
--- a/ext/IPC/SysV/SysV.xs
+++ b/ext/IPC/SysV/SysV.xs
@@ -44,9 +44,9 @@
 
 #ifndef S_IRWXU
 #   ifdef S_IRUSR
-#       define S_IRWXU (S_IRUSR|S_IWUSR|S_IWUSR)
-#       define S_IRWXG (S_IRGRP|S_IWGRP|S_IWGRP)
-#       define S_IRWXO (S_IROTH|S_IWOTH|S_IWOTH)
+#       define S_IRWXU (S_IRUSR|S_IWUSR|S_IXUSR)
+#       define S_IRWXG (S_IRGRP|S_IWGRP|S_IXGRP)
+#       define S_IRWXO (S_IROTH|S_IWOTH|S_IXOTH)
 #   else
 #       define S_IRWXU 0700
 #       define S_IRWXG 0070
@@ -248,7 +248,7 @@ BOOT:
         {"IPC_EXCL", IPC_EXCL},
 #endif
 #ifdef IPC_GETACL
-        {"IPC_GETACL", IPC_EXCL},
+        {"IPC_GETACL", IPC_GETACL},
 #endif
 #ifdef IPC_LOCKED
         {"IPC_LOCKED", IPC_LOCKED},