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"
     }