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