2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index fa15b034d4..5c5652e9f5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Thu Dec 23 09:18:53 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* io.c (io_reopen): readable flag was left unset for read-only IO.
+	  fixed: [ruby-core:04003]
+
 Thu Dec 23 00:16:32 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* configure.in (bsdi): use $(CC) for LDSHARED.  fixed [ruby-dev:25270]
diff --git a/io.c b/io.c
index 0d9f07a8d5..370765a085 100644
--- a/io.c
+++ b/io.c
@@ -3194,11 +3194,11 @@ io_reopen(io, nfile)
 	    if (f2) {
 		fptr->f = rb_fdopen(fd, "r");
 		fptr->f2 = f2;
-		fptr->mode |= FMODE_READABLE;
 	    }
 	    else {
 		fptr->f = rb_fdopen(fd, mode);
 	    }
+	    fptr->mode |= FMODE_READABLE;
 	}
 	rb_thread_fd_close(fd);
 	if ((orig->mode & FMODE_READABLE) && pos >= 0) {