Artifact 97deb6d14eef061cedd6e1bbe384d71450e65c878649f911def0b994c92787c5:
- File tests/oldTests/tls.tcl — part of check-in [2c0be4cb7f] at 2024-07-05 18:03:44 on branch tls-1.8 — Updated callback handlers in tls.tcl to be backwards compatible for earlier TCLTLS versions (user: bohagan, size: 501) [annotate] [blame] [check-ins using]
# # Copyright (C) 1997-2000 Matt Newman <matt@novadigm.com> # set dir [file dirname [info script]] regsub {\.} [info tclversion] {} vshort if {$tcl_platform(platform) == "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