Differences From Artifact [542de50b9a]:

• File tests/oldTests/tlsUpload.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: 1046) [annotate] [blame] [check-ins using]

To Artifact [40bb4e56d8]:

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

13
14
15
16
17
18
19
20

21
22
23
24
25
26
27

13
14
15
16
17
18
19

20
21
22
23
24
25
26
27

-
+

	set ::/Exit 1
	return
    }
    if {[eof $chan]} {
	close $chan
	set ::/Exit 1
    }
    if {$data != ""} {
    if {$data ne ""} {
	puts -nonewline stderr "$data"
    }
}
proc doit {chan count {delay 1000}} {
    if {$count == 0} {
	close $chan
	set ::/Exit 0