SVN: toys/stbr/stbr.tcl

[shadzik]

Author: shadzik
Date: Sat Oct 31 03:25:20 2009
New Revision: 10905

Modified:
   toys/stbr/stbr.tcl
Log:
- yep. and who will close all these open files? ;)
- fixes [03:21] Tcl error [pub:buildstatus]: couldn't create error file for command: too many open files - bug


Modified: toys/stbr/stbr.tcl
==============================================================================
--- toys/stbr/stbr.tcl	(original)
+++ toys/stbr/stbr.tcl	Sat Oct 31 03:25:20 2009
@@ -44,6 +44,7 @@
 		putserv "privmsg #pld :$l"
 		putlog "Thrown stats to #pld: $ver: $l"
 	}
+	close $qfile
 }
 
 proc pub:buildstatus {nick host hand chan arg} {