diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-06-26 16:01:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-06-26 16:01:05 (GMT) |
| commit | c0edc29d67c0944180ce922c7f63d6dd3c3bdf6c (patch) | |
| tree | a0d3d092b3b5dbaefedd1b32976a04a685c6bd36 | |
| parent | 264186eff7e571fd4d90920e0936a01c8784f3da (diff) | |
| parent | e7158f66d79b491e7b6f871259b591bd1aebe67d (diff) | |
| download | tcl-c0edc29d67c0944180ce922c7f63d6dd3c3bdf6c.zip tcl-c0edc29d67c0944180ce922c7f63d6dd3c3bdf6c.tar.gz tcl-c0edc29d67c0944180ce922c7f63d6dd3c3bdf6c.tar.bz2 | |
Fix mismatch of Tcl_Preserve() / Tcl_Release().
| -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 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; } /* |