# HG changeset patch # User Matti Hamalainen # Date 1483841750 -7200 # Node ID 04021e2e26c39e318b4acff6b41c747678513fc0 # Parent 86f39989df4bc4ccd8f08c4b567d7e7bab771f68 utillib: Fix silly bugs. diff -r 86f39989df4b -r 04021e2e26c3 utillib.tcl --- a/utillib.tcl Sun Jan 08 04:11:17 2017 +0200 +++ b/utillib.tcl Sun Jan 08 04:15:50 2017 +0200 @@ -65,8 +65,8 @@ proc utl_msg_do {upreferredmsg upublic unick uchan umsg} { foreach uline [utl_str_split $umsg 450] { - if {$apublic == 1} { - putserv "$upreferredmsg $uchan :$ulineg" + if {$upublic == 1} { + putserv "$upreferredmsg $uchan :$uline" } else { putserv "$upreferredmsg $unick :$uline" }