Bug#22047: Updated patch

["H. S. Teoh" <hsteoh@quickfur.ath.cx>]

OK, here is an updated patch that actually works (the previous patch has a
Tcl syntax error).


T

-- 
The two rules of success: 1. Don't tell everything you know. -- YHL

--- cbb-0.8.1.ORIG/init.tcl	2000-01-04 18:01:19.000000000 -0500
+++ cbb-0.8.1/init.tcl	2002-12-14 13:59:11.000000000 -0500
@@ -49,6 +49,16 @@
 
 
 # ----------------------------------------------------------------------------
+# Workaround to make the Tcl interpreter reap zombie child processes
+# ----------------------------------------------------------------------------
+
+proc grimreaper {} {
+    catch { exec "" }
+    after 3000 grimreaper
+}
+
+
+# ----------------------------------------------------------------------------
 # Initialize CBB
 # ----------------------------------------------------------------------------
 
@@ -58,6 +68,9 @@
     # lets get this out of the way right away ... increases the precision.
     set tcl_precision 17
 
+    # workaround to make Tcl reap zombie child processes once in a while
+    grimreaper
+
     # lets start with a "clean" slate
     acctSetClean