Artifact c06b0f18ffa2adc149d0504ad755651939c4f4443fe20e02e1c6b4302911fc44:

• File tests/oldTests/tls.tcl — part of check-in [ea36bcf6c4] at 2024-10-25 05:13:44 on branch tls-1.8 — More TCL9 updates (user: bohagan, size: 501) [annotate] [blame] [check-ins using] [more...]

#
# Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com>
#
set dir [file dirname [info script]]
regsub {\.} [info tclversion] {} vshort
if {$tcl_platform(platform) eq "windows"} {
    if {[info exists tcl_platform(debug)]} {
	load $dir/../win/Debug$vshort/tls.dll
    } else {
	load $dir/../win/Release$vshort/tls.dll
    }
} else {
    load [glob $dir/../unix/libtls*]
}

proc bgerror {err} {
    global errorInfo
    puts stderr "BG Error: $errorInfo"
}

source $dir/../tls.tcl
set tls::debug 2