diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-05 16:36:11 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-06-05 16:36:11 (GMT) |
| commit | c4e779ece448364066a7669b7040a9bdbcc632a9 (patch) | |
| tree | 32ad5a25166f32ec7c7f51b47ac9d34016367ac3 /generic/tclZlib.c | |
| parent | 7be9fc1d1b852e4acfcb37a711374be1f4712411 (diff) | |
| download | tcl-c4e779ece448364066a7669b7040a9bdbcc632a9.zip tcl-c4e779ece448364066a7669b7040a9bdbcc632a9.tar.gz tcl-c4e779ece448364066a7669b7040a9bdbcc632a9.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); } |