Posted to tcl by patthoyts at Sun Nov 15 10:44:01 GMT 2009view raw
- 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]} {