Posted to tcl by patthoyts at Sun Nov 15 10:44:01 GMT 2009view pretty

pat@badger:/opt/wub% svn diff
Index: Wub/Listener.tcl
===================================================================
--- Wub/Listener.tcl    (revision 2012)
+++ Wub/Listener.tcl    (working copy)
@@ -73,6 +73,9 @@
        Debug.listener {accepted: $sock $ipaddr $rport}

        if {[catch {
+            if {[dict exists $opts -tls]} {
+                tls::handshake $sock
+            }
            # select an Http object to handle incoming
            {*}[dict get $opts -httpd] Connect $sock $ipaddr $rport {*}$opts
        } result eo]} {