diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-06-05 16:36:11 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-06-05 16:36:11 (GMT) |
| commit | 4c9d8ea36a0b6918338a717ebc97fc7f07e045b7 (patch) | |
| tree | 32ad5a25166f32ec7c7f51b47ac9d34016367ac3 /generic/tclZlib.c | |
| parent | 767bf668de937fea9a11e4cb0520c0ecbbc6b2eb (diff) | |
| download | tcl-4c9d8ea36a0b6918338a717ebc97fc7f07e045b7.zip tcl-4c9d8ea36a0b6918338a717ebc97fc7f07e045b7.tar.gz tcl-4c9d8ea36a0b6918338a717ebc97fc7f07e045b7.tar.bz2 | |
fix broken tests
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 16bed47..537fa68 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -1091,7 +1091,7 @@ Tcl_ZlibStreamPut( e = deflate(&zshPtr->stream, flush); } - if (e != Z_OK) { + if (e != Z_OK && !(flush==Z_FINISH && e==Z_STREAM_END)) { if (zshPtr->interp) { ConvertError(zshPtr->interp, e); } |