@@ -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.6 2004/02/11 22:36:31 razzell Exp $
+# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.tcl,v 1.7 2004/12/17 16:02:03 patthoyts Exp $
 #
 namespace eval tls {
     variable logcmd tclLog
     variable debug 0
  
@@ -11,10 +11,16 @@
     variable defaults {}
 
     # Maps UID to Server Socket
     variable srvmap
     variable srvuid 0
+
+    # Over-ride this if you are using a different socket command
+    variable socketCmd
+    if {![info exists socketCmd]} {
+        set socketCmd [info command ::socket]
+    }
 }
 #
 # Backwards compatibility, also used to set the default
 # context options
 #
@@ -25,10 +31,11 @@
 }
 #
 # Helper function - behaves exactly as the native socket command.
 #
 proc tls::socket {args} {
+    variable socketCmd
     set idx [lsearch $args -server]
     if {$idx != -1} {
 	set server 1
 	set callback [lindex $args [expr {$idx+1}]]
 	set args [lreplace $args $idx [expr {$idx+1}]]
@@ -87,11 +94,11 @@
 	lappend sopts $host $port
     }
     #
     # Create TCP/IP socket
     #
-    set chan [eval ::socket $sopts]
+    set chan [eval $socketCmd $sopts]
     if {!$server && [catch {
 	#
 	# Push SSL layer onto socket
 	#
 	eval [list tls::import] $chan $iopts