From e7158f66d79b491e7b6f871259b591bd1aebe67d Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 26 Jun 2014 15:59:27 +0000
Subject: Fix mismatch of Tcl_Preserve() / Tcl_Release().
---
generic/tclIO.c | 3 +--
1 file changed, 1 insertion(+), 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;
}
/*
--
cgit v0.12