@@ -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.10 2008/03/19 02:34:21 patthoyts Exp $
+# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.tcl,v 1.11 2009/04/23 23:12:07 hobbs2 Exp $
 #
 namespace eval tls {
     variable logcmd tclLog
     variable debug 0
  
@@ -25,10 +25,23 @@
     # Package index cd's into the package directory for loading.
     # Irrelevant to unixoids, but for Windows this enables the OS to find
     # the dependent DLL's in the CWD, where they may be.
     set cwd [pwd]
     catch {cd $dir}
+    if {[string equal $::tcl_platform(platform) "windows"] &&
+	![string equal [lindex [file system $dir] 0] "native"]} {
+	# If it is a wrapped executable running on windows, the openssl
+	# dlls must be copied out of the virtual filesystem to the disk
+	# where Windows will find them when resolving the dependency in
+	# the tls dll. We choose to make them siblings of the executable.
+	package require starkit
+	set dst [file nativename [file dirname $starkit::topdir]]
+	foreach sdll [glob -nocomplain -directory $dir -tails *eay32.dll] {
+	    catch {file delete -force            $dst/$sdll}
+	    catch {file copy   -force $dir/$sdll $dst/$sdll}
+	}
+    }
     set res [catch {uplevel #0 [list load [file join [pwd] $dll]]} err]
     catch {cd $cwd}
     if {$res} {
 	namespace eval [namespace parent] {namespace delete tls}
 	return -code $res $err
@@ -246,5 +259,6 @@
     }
     set cmd $logcmd
     lappend cmd $msg
     uplevel #0 $cmd
 }
+