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 | ee896008d05e15220e151600c2ab580e325e459e (patch) | |
| tree | a0d3d092b3b5dbaefedd1b32976a04a685c6bd36 /generic/tclIO.c | |
| parent | 58f92b6316a970993945573937d63fed3e7a2099 (diff) | |
| parent | 6bc046c0bcdaa67b312ec8fe8a467bd206ea3e8c (diff) | |
| download | tcl-ee896008d05e15220e151600c2ab580e325e459e.zip tcl-ee896008d05e15220e151600c2ab580e325e459e.tar.gz tcl-ee896008d05e15220e151600c2ab580e325e459e.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 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; } /* |