Check-in [ec0e84eb75]
Bounty program for improvements to Tcl and certain Tcl packages.
Overview
Comment:Correct argument check error introduced in Revision 1.4.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: ec0e84eb75fc7bc1cb4b149c061e7f6c9d235792
User & Date: razzell on 2004-02-11 22:36:31
Other Links: manifest | tags
Context
2004-02-11
22:41
Complete private key name changes introduced in tlsIO.c Revision 1.18. check-in: c6821b0cf1 user: razzell tags: trunk
22:36
Correct argument check error introduced in Revision 1.4. check-in: ec0e84eb75 user: razzell tags: trunk
2004-02-04
04:02
Fix build warnings. check-in: bc575f4a87 user: razzell tags: trunk
Changes

Modified tls.tcl from [029ba515f3] to [cf05a5fb78].

     1      1   #
     2      2   # Copyright (C) 1997-2000 Matt Newman <[email protected]> 
     3      3   #
     4         -# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.tcl,v 1.5 2003/05/15 21:02:10 razzell Exp $
            4  +# $Header: /home/rkeene/tmp/cvs2fossil/../tcltls/tls/tls/tls.tcl,v 1.6 2004/02/11 22:36:31 razzell Exp $
     5      5   #
     6      6   namespace eval tls {
     7      7       variable logcmd tclLog
     8      8       variable debug 0
     9      9    
    10     10       # Default flags passed to tls::import
    11     11       variable defaults {}
................................................................................
    45     45       set sopts {}
    46     46       set iopts [concat [list -server $server] ${tls::defaults}]	;# Import options
    47     47   
    48     48       for {set idx 0} {$idx < $argc} {incr idx} {
    49     49   	set arg [lindex $args $idx]
    50     50   	switch -glob -- $server,$arg {
    51     51   	    0,-async	{lappend sopts $arg}
    52         -	    0,-myaddr	-
    53         -	    *,-myport	{lappend sopts $arg [lindex $args [incr idx]]}
           52  +	    0,-myport	-
           53  +	    *,-myaddr	{lappend sopts $arg [lindex $args [incr idx]]}
    54     54   	    *,-cadir	-
    55     55   	    *,-cafile	-
    56     56   	    *,-certfile	-
    57     57   	    *,-cipher	-
    58     58   	    *,-command	-
    59     59   	    *,-keyfile	-
    60     60   	    *,-password	-