From: js@ddre.dk <js@ddre.dk>
Date: Thu, 24 Feb 2000 15:11:33 +0000 (+0100)
Subject: Some Windows setups do not have S_IRGRP, S_IWGRP, S_IXGRP,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fac7cdfc52dfde65108b7aa23f5b622c8594f59f;p=p5sagit%2Fp5-mst-13.2.git

Some Windows setups do not have S_IRGRP, S_IWGRP, S_IXGRP,
S_IROTH, S_IWOTH, S_IXOTH.
To: perl5-porters@perl.org
Subject: [ID 20000224.004] Not OK: perl v5.5.660 on MSWin32-x86 4.0
Message-Id: <2991B60B9F72D011811C0000F821BB4C983B0C@freja.ddre.dk>

p4raw-id: //depot/cfgperl@5235
---

diff --git a/perl.h b/perl.h
index 10cce9d..ad5af2f 100644
--- a/perl.h
+++ b/perl.h
@@ -906,12 +906,30 @@ struct perl_mstats {
 #	define S_IWUSR 0200
 #	define S_IXUSR 0100
 #   endif
-#   define S_IRGRP (S_IRUSR>>3)
-#   define S_IWGRP (S_IWUSR>>3)
-#   define S_IXGRP (S_IXUSR>>3)
-#   define S_IROTH (S_IRUSR>>6)
-#   define S_IWOTH (S_IWUSR>>6)
-#   define S_IXOTH (S_IXUSR>>6)
+#endif
+
+#ifndef S_IRGRP
+#   ifdef S_IRUSR
+#       define S_IRGRP (S_IRUSR>>3)
+#       define S_IWGRP (S_IWUSR>>3)
+#       define S_IXGRP (S_IXUSR>>3)
+#   else
+#       define S_IRGRP 0040
+#       define S_IWGRP 0020
+#       define S_IXGRP 0010
+#   endif
+#endif
+
+#ifndef S_IROTH
+#   ifdef S_IRUSR
+#       define S_IROTH (S_IRUSR>>6)
+#       define S_IWOTH (S_IWUSR>>6)
+#       define S_IXOTH (S_IXUSR>>6)
+#   else
+#       define S_IROTH 0040
+#       define S_IWOTH 0020
+#       define S_IXOTH 0010
+#   endif
 #endif
 
 #ifndef S_ISUID