diff options
author | dgp <dgp@users.sourceforge.net> | 2014-06-26 15:59:27 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2014-06-26 15:59:27 (GMT) |
commit | e7158f66d79b491e7b6f871259b591bd1aebe67d (patch) | |
tree | 33234a7e1359f10d4f1cf7c7c638a1abfebc34e9 /generic | |
parent | b590e079873c15af1b48b4a05ba3d7db5926b9d7 (diff) | |
download | tcl-e7158f66d79b491e7b6f871259b591bd1aebe67d.zip tcl-e7158f66d79b491e7b6f871259b591bd1aebe67d.tar.gz tcl-e7158f66d79b491e7b6f871259b591bd1aebe67d.tar.bz2 |
Fix mismatch of Tcl_Preserve() / Tcl_Release().
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclIO.c | 3 |
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; } /* |