Tk Library Source Code: Artifact [07897be301]

Artifact 07897be301d006983203a3d70bc31d2c28cc7596:

Attachment "bound.patch" to ticket [1533868fff] added by pdav 2006-08-03 20:33:59.

diff -u -r tcllib/modules/ldap/ldap.tcl tcllib.new/modules/ldap/ldap.tcl
--- tcllib/modules/ldap/ldap.tcl	Thu Aug  3 11:49:49 2006
+++ tcllib.new/modules/ldap/ldap.tcl	Thu Aug  3 15:29:38 2006
@@ -388,7 +388,7 @@
     debugData unbindRequest $request
     puts -nonewline $conn(sock) $request
     flush $conn(sock)
-    set bound 0
+    set conn(bound) 0
 }