Paul Klumpp 12 年之前
父節點
當前提交
2cf059a979
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      cims.tcl

+ 1 - 1
cims.tcl

@@ -617,7 +617,7 @@ proc ::cims::chanstat_users {chan users} {
 proc ::cims::chanstat_userlist {chan unique_userlist} {
 	set ch_userlist [chanlist ${chan}]
 
-	set unique_userlist [lsort -unique [concat $unique_userlist $ch_userlist]]
+	set unique_userlist [lsort -unique [join [concat [split $unique_userlist] [split $ch_userlist]]]]
 	
 	putlog "uulist: $unique_userlist"