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