summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-06-26 16:01:05 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-06-26 16:01:05 (GMT)
commitc0edc29d67c0944180ce922c7f63d6dd3c3bdf6c (patch)
treea0d3d092b3b5dbaefedd1b32976a04a685c6bd36
parent264186eff7e571fd4d90920e0936a01c8784f3da (diff)
parente7158f66d79b491e7b6f871259b591bd1aebe67d (diff)
downloadtcl-c0edc29d67c0944180ce922c7f63d6dd3c3bdf6c.zip
tcl-c0edc29d67c0944180ce922c7f63d6dd3c3bdf6c.tar.gz
tcl-c0edc29d67c0944180ce922c7f63d6dd3c3bdf6c.tar.bz2
Fix mismatch of Tcl_Preserve() / Tcl_Release().
-rw-r--r--generic/tclIO.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 57ef02e..c8c9aec 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -4363,8 +4363,7 @@ Tcl_GetsObj(
Tcl_EncodingState oldState;
if (CheckChannelErrors(statePtr, TCL_READABLE) != 0) {
- copiedTotal = -1;
- goto done;
+ return -1;
}
/*