(_IO_file_overflow): Set error when try to write on a read-only

stream.

diff --git a/libio/fileops.c b/libio/fileops.c
index 3a0bdaaa628ad122b2527df06d9b2279d9c9137b..3d494e31c15a27ee6de90a8b3c946e7575db7f90 100644 (file)
--- a/libio/fileops.c
+++ b/libio/fileops.c
@@ -317,6 +317,7 @@ DEFUN(_IO_file_overflow, (f, ch),
 {
   if (f->_flags & _IO_NO_WRITES) /* SET ERROR */
     {
+      f->_flags |= _IO_ERR_SEEN;
       __set_errno (EBADF);
       return EOF;
     }