From 6fff25ecbcc670141c504a6dd0555d01204f761e Mon Sep 17 00:00:00 2001
From: "f.bonnet" <f.bonnet>
Date: Sun, 5 Nov 2017 16:41:11 +0000
Subject: Fixed stupid Tcl_DecrRefCount bug in TclCleanupChildren with normally
 terminated processes.

---
 generic/tclPipe.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclPipe.c b/generic/tclPipe.c
index bc760b6..13f4539 100644
--- a/generic/tclPipe.c
+++ b/generic/tclPipe.c
@@ -313,9 +313,9 @@ TclCleanupChildren(
 		Tcl_SetObjErrorCode(interp, error);
 		Tcl_SetObjResult(interp, msg);
 	    }
+	    Tcl_DecrRefCount(error);
+	    Tcl_DecrRefCount(msg);
 	}
-	Tcl_DecrRefCount(error);
-	Tcl_DecrRefCount(msg);
     }
 
     /*
-- 
cgit v0.12