Index: ChangeLog
==================================================================
--- ChangeLog
+++ ChangeLog
@@ -1,5 +1,10 @@
+2010-07-27  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* tls.tcl (tls::socket): some socket implementations have a -type
+	support (e.g. for inet6).
+
 2009-04-23  Jeff Hobbs  <jeffh@ActiveState.com>
 
 	* tls.tcl (tls::initlib): add support for Windows starpack
 	operation that unbundles any constituent libraries. [AS Bug 82888]
 

Index: tls.tcl
==================================================================
--- tls.tcl
+++ tls.tcl
@@ -1,9 +1,9 @@
 #
 # Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com> 
 #
-# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.tcl,v 1.11 2009/04/23 23:12:07 hobbs2 Exp $
+# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.tcl,v 1.12 2010/07/27 17:15:47 hobbs2 Exp $
 #
 namespace eval tls {
     variable logcmd tclLog
     variable debug 0
  
@@ -85,10 +85,11 @@
     for {set idx 0} {$idx < $argc} {incr idx} {
 	set arg [lindex $args $idx]
 	switch -glob -- $server,$arg {
 	    0,-async	{lappend sopts $arg}
 	    0,-myport	-
+	    *,-type	-
 	    *,-myaddr	{lappend sopts $arg [lindex $args [incr idx]]}
 	    *,-cadir	-
 	    *,-cafile	-
 	    *,-certfile	-
 	    *,-cipher	-