summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2012-06-05 16:36:11 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2012-06-05 16:36:11 (GMT)
commitc4e779ece448364066a7669b7040a9bdbcc632a9 (patch)
tree32ad5a25166f32ec7c7f51b47ac9d34016367ac3 /generic
parent7be9fc1d1b852e4acfcb37a711374be1f4712411 (diff)
downloadtcl-c4e779ece448364066a7669b7040a9bdbcc632a9.zip
tcl-c4e779ece448364066a7669b7040a9bdbcc632a9.tar.gz
tcl-c4e779ece448364066a7669b7040a9bdbcc632a9.tar.bz2
fix broken tests
Diffstat (limited to 'generic')
-rw-r--r--generic/tclZlib.c2
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);
}