fputs() does return EOF on error but here we don't care.

p4raw-id: //depot/perl@7670

diff --git a/perlio.c b/perlio.c
index fa69c44..b828bb2 100644 (file)
--- a/perlio.c
+++ b/perlio.c
@@ -2359,7 +2359,8 @@ PerlIO_vsprintf(char *s, int n, const char *fmt, va_list ap)
    if (strlen(s) >= (STRLEN)n)
     {
      dTHX;
-     PerlIO_puts(Perl_error_log,"panic: sprintf overflow - memory corrupted!\n");
+     (void)PerlIO_puts(Perl_error_log,
+                      "panic: sprintf overflow - memory corrupted!\n");
      my_exit(1);
     }
   }