summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-06-26 15:59:27 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-06-26 15:59:27 (GMT)
commite7158f66d79b491e7b6f871259b591bd1aebe67d (patch)
tree33234a7e1359f10d4f1cf7c7c638a1abfebc34e9
parentb590e079873c15af1b48b4a05ba3d7db5926b9d7 (diff)
downloadtcl-e7158f66d79b491e7b6f871259b591bd1aebe67d.zip
tcl-e7158f66d79b491e7b6f871259b591bd1aebe67d.tar.gz
tcl-e7158f66d79b491e7b6f871259b591bd1aebe67d.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 c2a705c..85b015c 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -3945,8 +3945,7 @@ Tcl_GetsObj(
Tcl_EncodingState oldState;
if (CheckChannelErrors(statePtr, TCL_READABLE) != 0) {
- copiedTotal = -1;
- goto done;
+ return -1;
}
/*