Posted to tcl by patthoyts at Thu Jul 09 22:45:48 GMT 2009view pretty
Index: generic/tclZlib.c =================================================================== RCS file: /cvsroot/tcl/tcl/generic/tclZlib.c,v retrieving revision 1.28 diff -u -r1.28 tclZlib.c --- generic/tclZlib.c 6 Jul 2009 21:38:21 -0000 1.28 +++ generic/tclZlib.c 9 Jul 2009 22:41:55 -0000 @@ -1940,7 +1940,7 @@ switch ((enum zlibFormats) format) { case f_deflate: mode = TCL_ZLIB_STREAM_DEFLATE; - format = TCL_ZLIB_FORMAT_GZIP; + format = TCL_ZLIB_FORMAT_RAW; break; case f_inflate: mode = TCL_ZLIB_STREAM_INFLATE;