[Tkabber-dev] [tclxmpp commit] r51 - in trunk: . xmpp

codesite-noreply at google.com codesite-noreply at google.com
Fri Oct 31 09:19:40 MSK 2008


Author: sgolovan
Date: Thu Oct 30 23:19:29 2008
New Revision: 51

Modified:
    trunk/ChangeLog
    trunk/xmpp/xmpp.tcl

Log:
	* xmpp/xmpp.tcl: Protected unsetting of a variable which stores abort
	  commands because it may be unset during abort call.


Modified: trunk/ChangeLog
==============================================================================
--- trunk/ChangeLog	(original)
+++ trunk/ChangeLog	Thu Oct 30 23:19:29 2008
@@ -1,3 +1,8 @@
+2008-10-31  Sergei Golovan  <sgolovan at nes.ru>
+
+	* xmpp/xmpp.tcl: Protected unsetting of a variable which stores abort
+	  commands because it may be unset during abort call.
+
  2008-10-30  Sergei Golovan  <sgolovan at nes.ru>

  	* xmpp/tcp.tcl, xmpp/tls.tcl, xmpp/zlib.tcl: Protected reading from

Modified: trunk/xmpp/xmpp.tcl
==============================================================================
--- trunk/xmpp/xmpp.tcl	(original)
+++ trunk/xmpp/xmpp.tcl	Thu Oct 30 23:19:29 2008
@@ -303,7 +303,7 @@
      variable $xlib
      upvar 0 $xlib state

-    unset state(abortCommand)
+    catch {unset state(abortCommand)}

      if {[string equal $status ok]} {
          set state(transport) $msg
@@ -530,7 +530,7 @@

      if {[string equal $state(abortCommand) \
                        [namespace code [list GotStream $xlib abort {}]]]} {
-        unset state(abortCommand)
+        catch {unset state(abortCommand)}
      }

      switch -- $status {
@@ -947,7 +947,7 @@

              if {[info exists state(abortCommand)]} {
                  uplevel #0 $state(abortCommand)
-                unset state(abortCommand)
+                catch {unset state(abortCommand)}
              }

              catch {
@@ -993,7 +993,7 @@

              if {[info exists state(abortCommand)]} {
                  uplevel #0 $state(abortCommand)
-                unset state(abortCommand)
+                catch {unset state(abortCommand)}
              }

              catch {


More information about the Tkabber-dev mailing list