3 files changed, 4 insertions, 4 deletions
diff --git a/malloc.c b/malloc.c
index a6fb4e7e04..a99663ef56 100644
--- a/malloc.c
+++ b/malloc.c
@@ -1065,7 +1065,7 @@ emergency_sbrk(MEM_SIZE size)
 #endif	/* defined PERL_EMERGENCY_SBRK */
 
 /* Don't use PerlIO buffered writes as they allocate memory. */
-#define MYMALLOC_WRITE2STDERR(s) PerlLIO_write(PerlIO_fileno(PerlIO_stderr()),s,strlen(s))
+#define MYMALLOC_WRITE2STDERR(s) PERL_UNUSED_RESULT(PerlLIO_write(PerlIO_fileno(PerlIO_stderr()),s,strlen(s)))
 
 #ifdef DEBUGGING
 #undef ASSERT
diff --git a/perl.h b/perl.h
index 7b40126eb8..3fa7db5d08 100644
--- a/perl.h
+++ b/perl.h
@@ -921,7 +921,7 @@ EXTERN_C int usleep(unsigned int);
 #  define CHECK_MALLOC_TAINT(newval)				\
 	CHECK_MALLOC_TOO_LATE_FOR_(				\
 		if (newval) {					\
-		  panic_write2("panic: tainting with $ENV{PERL_MALLOC_OPT}\n");\
+		  PERL_UNUSED_RESULT(panic_write2("panic: tainting with $ENV{PERL_MALLOC_OPT}\n"));\
 		  exit(1); })
 #  define MALLOC_CHECK_TAINT(argc,argv,env)	STMT_START {	\
 	if (doing_taint(argc,argv,env)) {			\
diff --git a/util.c b/util.c
index 3fa7991de3..ea13ff36e9 100644
--- a/util.c
+++ b/util.c
@@ -4767,7 +4767,7 @@ S_mem_log_common(enum mem_log_type mlt, const UV n,
 	    if (strchr(pmlenv, 't')) {
 		len = my_snprintf(buf, sizeof(buf),
 				MEM_LOG_TIME_FMT, MEM_LOG_TIME_ARG);
-		PerlLIO_write(fd, buf, len);
+		PERL_UNUSED_RESULT(PerlLIO_write(fd, buf, len));
 	    }
 	    switch (mlt) {
 	    case MLT_ALLOC:
@@ -4802,7 +4802,7 @@ S_mem_log_common(enum mem_log_type mlt, const UV n,
 	    default:
 		len = 0;
 	    }
-	    PerlLIO_write(fd, buf, len);
+	    PERL_UNUSED_RESULT(PerlLIO_write(fd, buf, len));
 	}
     }
 }