avoid compiler warnings

p4raw-id: //depot/perl@5149

diff --git a/malloc.c b/malloc.c
index 0e5e26f..c4a7a90 100644 (file)
--- 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 cb3e6eb..66162e6 100644 (file)
--- 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