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

Differences From Artifact [829214fd98]:

To Artifact [9a523164da]:


637
638
639
640
641
642
643
644

645
646

647
648
649
650
651
652
653
637
638
639
640
641
642
643

644
645
646
647
648
649
650
651
652
653
654






-
+


+







	Tcl_AppendResult(interp, "bad channel \"", Tcl_GetChannelName(chan),
		"\": not a TLS channel", NULL);
	return TCL_ERROR;
    }
    statePtr = (State *)Tcl_GetChannelInstanceData(chan);

    if (!SSL_is_init_finished(statePtr->ssl)) {
	int err;
	int err = 0;
	ret = Tls_WaitForConnect(statePtr, &err);
	if ((statePtr->flags & TLS_TCL_ASYNC) && err == EAGAIN) {
            dprintf("Async set and err = EAGAIN");
	    ret = 0;
	}
	if (ret < 0) {
	    CONST char *errStr = statePtr->err;
	    Tcl_ResetResult(interp);
	    Tcl_SetErrno(err);