Posted to tcl by patthoyts at Thu Jul 09 22:45:48 GMT 2009view raw

  1. Index: generic/tclZlib.c
  2. ===================================================================
  3. RCS file: /cvsroot/tcl/tcl/generic/tclZlib.c,v
  4. retrieving revision 1.28
  5. diff -u -r1.28 tclZlib.c
  6. --- generic/tclZlib.c 6 Jul 2009 21:38:21 -0000 1.28
  7. +++ generic/tclZlib.c 9 Jul 2009 22:41:55 -0000
  8. @@ -1940,7 +1940,7 @@
  9. switch ((enum zlibFormats) format) {
  10. case f_deflate:
  11. mode = TCL_ZLIB_STREAM_DEFLATE;
  12. - format = TCL_ZLIB_FORMAT_GZIP;
  13. + format = TCL_ZLIB_FORMAT_RAW;
  14. break;
  15. case f_inflate:
  16. mode = TCL_ZLIB_STREAM_INFLATE;