Diff
Bounty program for improvements to Tcl and certain Tcl packages.

Differences From Artifact [af559bc2dc]:

To Artifact [c6f69ae9dc]:


1
2
3
4
5
6
7
8
9
10
11
12
1
2
3


4
5
6
7
8
9
10


-
-







#
# Copyright (C) 1997-2000 Matt Newman <[email protected]>
#
# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tests/oldTests/tlsAuto.tcl,v 1.1 2000/06/06 18:13:20 aborr Exp $
#

set dir [file dirname [info script]]
cd $dir
source tls.tcl

proc fromServer {chan} {
    if {[catch {read $chan 10} data]} {