avoid compiler warnings

p4raw-id: //depot/perl@5149

2 files changed, 8 insertions, 8 deletions

diff --git a/malloc.c b/malloc.c
index 0e5e26f1d1..c4a7a9017d 100644
--- a/malloc.c
+++ b/malloc.c
@@ -1867,6 +1867,7 @@ Perl_get_mstats(pTHX_ perl_mstats_t *buf, int buflen, int level)
 	    }
 	}
 #endif	/* defined DEBUGGING_MSTATS */
+	return 0;		/* XXX unused */
 }
 /*
  * mstats - print out statistics about malloc
diff --git a/perl.h b/perl.h
index cb3e6eb251..66162e6ec9 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