Tcl Library Source Code

Artifact e7bf4fffaf970bc927ec91c1133529c584d08b0a:

Attachment "ldap.tcl.patch" to ticket [c247ed5db4] added by pda 2017-03-21 10:41:49. (unpublished)

---

--- ldap.tcl.bak	2017-03-21 11:01:54.716595089 +0100
+++ ldap.tcl	2017-03-21 11:02:25.956334530 +0100
@@ -738,7 +738,10 @@
                     set conn(pdu,partial) 1
                     append conn(pdu,received) $type
                 }
-                }
+	    }
+	    partial {
+		return
+	    }
             eof {
                 CleanupWaitingMessages $handle
                 set conn(lastError) "Server closed connection"