[Rd] writing to gzfile: segmentation fault (PR#2347)

[vograno@arbitrade.com]

Full_Name: Vadim Ogranovich
Version: Version 1.6.0  (2002-10-01)
OS: Red Hat 7.1
Submission from: (NULL) (209.99.241.1)


The following sequence of commands crashes my R session. The first weirdness
happens after the second command that appears not to change the "foo.gz" file,
no error generated.

> con <- gzfile("foo.gz", open="w"); cat("goo\n", file=con); close(con)
con <- gzfile("foo.gz", open="w"); cat("goo\n", file=con); close(con)
> cat("boo\n", file=gzfile("foo.gz"))
# this doesn't change "foo.gz"
cat("boo\n", file=gzfile("foo.gz"))
> con <- gzfile("foo.gz", open="w"); cat("goo\n", file=con); close(con)
con <- gzfile("foo.gz", open="w"); cat("goo\n", file=con); close(con)
> cat("boo\n", file=gzfile("foo.gz"))
cat("boo\n", file=gzfile("foo.gz"))

Process R segmentation fault at Wed Dec  4 16:13:32 2002