Posted to tcl by patthoyts at Thu Jul 09 22:45:48 GMT 2009view raw
- 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;