X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl.h;h=66162e6ec937896bf0af75c126be86175a505108;hb=c9fcc6c44229e7c36dee08e5d883d12284a44f17;hp=cb3e6eb2517ab234ecbabb19cf6a8b632520fea5;hpb=e1f775196788199aa205bfd047e37a8e188e06b2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/perl.h b/perl.h
index cb3e6eb..66162e6 100644
--- a/perl.h
+++ b/perl.h
@@ -3170,20 +3170,19 @@ typedef struct am_table_short AMTS;
 
 #ifdef I_FCNTL
 #  include <fcntl.h>
-#else
-#  ifndef O_RDONLY
-/* Assume UNIX defaults */
-#    define O_RDONLY	0000
-#    define O_WRONLY	0001
-#    define O_RDWR	0002
-#    define O_CREAT	0100
-#  endif
 #endif
 
 #ifdef I_SYS_FILE
 #  include <sys/file.h>
 #endif
 
+#ifndef O_RDONLY
+/* Assume UNIX defaults */
+#    define O_RDONLY	0000
+#    define O_WRONLY	0001
+#    define O_RDWR	0002
+#    define O_CREAT	0100
+#endif
 
 #ifdef IAMSUID