[Tkabber-dev] r1623 - in trunk/tkabber: . plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Dec 15 20:19:01 MSK 2008


Author: sergei
Date: 2008-12-15 20:19:00 +0300 (Mon, 15 Dec 2008)
New Revision: 1623

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/general/caps.tcl
Log:
	* plugins/general/caps.tcl: Replaced lset by explicit list creation to
	  make disco reply working in Tcl 8.3.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-12-15 13:03:17 UTC (rev 1622)
+++ trunk/tkabber/ChangeLog	2008-12-15 17:19:00 UTC (rev 1623)
@@ -6,6 +6,9 @@
 	  make sound better because snack uses Tcl event loop which can be busy
 	  in the main thread.
 
+	* plugins/general/caps.tcl: Replaced lset by explicit list creation to
+	  make disco reply working in Tcl 8.3.
+
 2008-12-14  Sergei Golovan  <sgolovan at nes.ru>
 
 	* login.tcl: Since logout can be called before a connection is

Modified: trunk/tkabber/plugins/general/caps.tcl
===================================================================
--- trunk/tkabber/plugins/general/caps.tcl	2008-12-15 13:03:17 UTC (rev 1622)
+++ trunk/tkabber/plugins/general/caps.tcl	2008-12-15 17:19:00 UTC (rev 1623)
@@ -178,7 +178,7 @@
     if {[string equal [lindex $res 0] result]} {
 	::xmpp::xml::split [lindex $res 1] tag xmlns attrs cdata subels
 	lappend attrs node $caps_node
-	lset res 1 [::xmpp::xml::merge $tag $xmlns $attrs $cdata $subels]
+	set res [list result [::xmpp::xml::merge $tag $xmlns $attrs $cdata $subels]]
     }
     return stop
 }



More information about the Tkabber-dev mailing list