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

Differences From Artifact [325d38b6f1]:

To Artifact [8221535697]:


655
656
657
658
659
660
661

662
663
664
665





666
667
668
669

670
671
672
673
674
675
676
655
656
657
658
659
660
661
662




663
664
665
666
667




668
669
670
671
672
673
674
675






+
-
-
-
-
+
+
+
+
+
-
-
-
-
+







	}
	statePtr = (State *)Tcl_GetChannelInstanceData(chan);

	dprintf("Calling Tls_WaitForConnect");
	ret = Tls_WaitForConnect(statePtr, &err, 1);
	dprintf("Tls_WaitForConnect returned: %i", ret);

	if (
	if (ret < 0) {
		if ((statePtr->flags & TLS_TCL_ASYNC) && err == EAGAIN) {
			dprintf("Async set and err = EAGAIN");
			ret = 0;
	    ret < 0 && \
	    ((statePtr->flags & TLS_TCL_ASYNC) && err == EAGAIN)
	) {
		dprintf("Async set and err = EAGAIN");
		ret = 0;
		}
	}

	if (ret < 0) {
	} else if (ret < 0) {
		errStr = statePtr->err;
		Tcl_ResetResult(interp);
		Tcl_SetErrno(err);

		if (!errStr || *errStr == 0) {
			errStr = Tcl_PosixError(interp);
		}