2 files changed, 10 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 6671ef0f1a..e5efdaaefa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Thu May 27 14:53:13 2004  WATANABE Hirofumi  <eban@ruby-lang.org>
+
+	* io.c (rb_io_fwrite): workaround for bcc32's fwrite bug.
+	  add errno checking.  [ruby-dev:23627]
+
 Wed May 26 14:19:42 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* eval.c (rb_eval, eval): make line number consistent on eval with
diff --git a/io.c b/io.c
index 9cb924ba22..00f97be61a 100644
--- a/io.c
+++ b/io.c
@@ -394,7 +394,11 @@ rb_io_fwrite(ptr, len, f)
     } while (--n > 0);
 #else
     while (errno = 0, ptr += (r = fwrite(ptr, 1, n, f)), (n -= r) > 0) {
-	if (ferror(f)) {
+	if (ferror(f)
+#if defined __BORLANDC__
+	    || errno == EBADF || errno == ENOENT
+#endif
+	) {
 #ifdef __hpux
 	    if (!errno) errno = EAGAIN;
 #endif