[Tkabber-dev] r1153 - trunk/tkabber/jabberlib-tclxml/tclxml

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Jul 12 00:03:04 MSD 2007


Author: sergei
Date: 2007-07-12 00:03:03 +0400 (Thu, 12 Jul 2007)
New Revision: 1153

Modified:
   trunk/tkabber/jabberlib-tclxml/tclxml/sgmlparser.tcl
Log:
	* jabberlib-tclxml/tclxml/sgmlparser.tcl: Fixed typo.


Modified: trunk/tkabber/jabberlib-tclxml/tclxml/sgmlparser.tcl
===================================================================
--- trunk/tkabber/jabberlib-tclxml/tclxml/sgmlparser.tcl	2007-07-11 20:01:33 UTC (rev 1152)
+++ trunk/tkabber/jabberlib-tclxml/tclxml/sgmlparser.tcl	2007-07-11 20:03:03 UTC (rev 1153)
@@ -978,7 +978,7 @@
     if {[regexp {([^:]+):(.*)$} $tag discard prefix tag1]} {
 	set nsspec [lsort -dictionary -decreasing [array names namespaces $prefix,*]]
 	if {[llength $nsspec]} {
-	    set tag tag1
+	    set tag $tag1
 	    set nsuri $namespaces([lindex $nsspec 0])
 	    set ns [list -namespace $nsuri]
 	} else {



More information about the Tkabber-dev mailing list