diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-06-26 16:01:05 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-06-26 16:01:05 (GMT) |
| commit | 8a322ddd290e7cc38332f33e248ffe5dae3556ef (patch) | |
| tree | a0d3d092b3b5dbaefedd1b32976a04a685c6bd36 | |
| parent | d1561b75b724772cce0149adb638c29dbd663a55 (diff) | |
| parent | 69fb20a42ac73b7ec8e50f844db61ed912b77dd6 (diff) | |
| download | tcl-8a322ddd290e7cc38332f33e248ffe5dae3556ef.zip tcl-8a322ddd290e7cc38332f33e248ffe5dae3556ef.tar.gz tcl-8a322ddd290e7cc38332f33e248ffe5dae3556ef.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; } /* |