2000-06-14-2

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@759 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 7 insertions, 0 deletions

diff --git a/io.c b/io.c
index 0d604a9fe3..a2dca1a4a0 100644
--- a/io.c
+++ b/io.c
@@ -1755,6 +1755,7 @@ io_reopen(io, nfile)
     OpenFile *fptr, *orig;
     char *mode;
     int fd;
+    long pos;
 
     nfile = rb_io_get_io(nfile);
     if (rb_safe_level() >= 4 && (!OBJ_TAINTED(io) || !OBJ_TAINTED(nfile))) {
@@ -1764,6 +1765,9 @@ io_reopen(io, nfile)
     GetOpenFile(nfile, orig);
 
     if (fptr == orig) return io;
+    if (orig->mode & FMODE_READABLE) {
+	pos = ftell(orig->f);
+    }
     if (orig->f2) {
 	if (fflush(orig->f2) == EOF) rb_sys_fail(orig->path);
     }
@@ -1793,6 +1797,9 @@ io_reopen(io, nfile)
 	if (dup2(fileno(orig->f), fd) < 0)
 	    rb_sys_fail(orig->path);
 	fptr->f = rb_fdopen(fd, mode);
+	if (orig->mode & FMODE_READABLE && pos >= 0) {
+	    fseek(fptr->f, pos, SEEK_SET);
+	}
     }
 
     if (fptr->f2) {