[Amsn-commits] SF.net SVN: amsn:[11883] trunk/amsn/protocol.tcl

[<kak...@us...>]

Revision: 11883
          http://amsn.svn.sourceforge.net/amsn/?rev=11883&view=rev
Author:   kakaroto
Date:     2010-01-10 20:52:37 +0000 (Sun, 10 Jan 2010)

Log Message:
-----------
close/clear socket when an SB gets closed!

Modified Paths:
--------------
    trunk/amsn/protocol.tcl

Modified: trunk/amsn/protocol.tcl
===================================================================
--- trunk/amsn/protocol.tcl	2010-01-09 21:22:41 UTC (rev 11882)
+++ trunk/amsn/protocol.tcl	2010-01-10 20:52:37 UTC (rev 11883)
@@ -2518,7 +2518,8 @@
 		catch {fileevent [$sb cget -sock] readable "" } res
 		catch {fileevent [$sb cget -sock] writable "" } res
 
-		set sock [$sb cget -sock]
+		catch {close $sock}
+		$sb configure -sock ""
 
 		ClearSB $sb
 	}
@@ -4197,6 +4198,7 @@
 		}
 		catch {
 			close $options(-sock)
+			set $options(-sock) ""
 		}
 	}
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.