1 files changed, 1 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index 0518baedf6..9877eba210 100644
--- a/doio.c
+++ b/doio.c
@@ -996,7 +996,7 @@ Perl_do_eof(pTHX_ GV *gv)
 
     if (!io)
 	return TRUE;
-    else if ((IoTYPE(io) == IoTYPE_WRONLY) && ckWARN(WARN_IO))
+    else if (IoTYPE(io) == IoTYPE_WRONLY)
 	report_wrongway_fh(gv, '>');
 
     while (IoIFP(io)) {