Mercurial > hg > egg-tcls
changeset 428:04021e2e26c3
utillib: Fix silly bugs.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 08 Jan 2017 04:15:50 +0200 |
parents | 86f39989df4b |
children | 1ada0cb9bdd9 |
files | utillib.tcl |
diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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" }