1 files changed, 1 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index 50ab24f2a1..39cbf6d851 100644
--- a/doio.c
+++ b/doio.c
@@ -1395,7 +1395,7 @@ S_exec_failed(pTHX_ const char *cmd, int fd, int do_report)
 	Perl_warner(aTHX_ packWARN(WARN_EXEC), "Can't exec \"%s\": %s",
 		    cmd, Strerror(e));
     if (do_report) {
-	PerlLIO_write(fd, (void*)&e, sizeof(int));
+	(void)PerlLIO_write(fd, (void*)&e, sizeof(int));
 	PerlLIO_close(fd);
     }
 }