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 (file)
--- 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