[Tkabber-dev] r781 - trunk/tkabber/plugins/filetransfer

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Nov 4 14:43:10 MSK 2006


Author: sergei
Date: 2006-11-04 14:43:05 +0300 (Sat, 04 Nov 2006)
New Revision: 781

Modified:
   trunk/tkabber/plugins/filetransfer/si.tcl
Log:
	* plugins/filetransfer/si.tcl: Fixed string comparison.


Modified: trunk/tkabber/plugins/filetransfer/si.tcl
===================================================================
--- trunk/tkabber/plugins/filetransfer/si.tcl	2006-11-04 10:16:43 UTC (rev 780)
+++ trunk/tkabber/plugins/filetransfer/si.tcl	2006-11-04 11:43:05 UTC (rev 781)
@@ -378,7 +378,7 @@
     upvar #0 $token state
 
     if {![info exists state(w)] || ![winfo exists $state(w)]} {return 0}
-    if {![info exists state(stream)] || !$state(stream) == $stream} {return 0}
+    if {![info exists state(stream)] || !($state(stream) == $stream)} {return 0}
 
     set fd $state(fd)
     set filename $state(filename)
@@ -397,7 +397,7 @@
     upvar #0 $token state
 
     if {![info exists state(w)] || ![winfo exists $state(w)]} {return 0}
-    if {![info exists state(stream)] || !$state(stream) == $stream} {return 0}
+    if {![info exists state(stream)] || !($state(stream) == $stream)} {return 0}
 
     debugmsg filetransfer "CLOSE"
     destroy $state(w)



More information about the Tkabber-dev mailing list