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

Differences From Artifact [8221535697]:

To Artifact [0dc23990ac]:


674
675
676
677
678
679
680




681
682
683
684
685
686
687
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691






+
+
+
+







			errStr = Tcl_PosixError(interp);
		}

		Tcl_AppendResult(interp, "handshake failed: ", errStr, (char *) NULL);
		dprintf("Returning TCL_ERROR with handshake failed: %s", errStr);
		return(TCL_ERROR);
	} else {
		if (err != 0) {
			dprintf("Got an error with a completed handshake: err = %i", err);
		}

		ret = 1;
	}

	dprintf("Returning TCL_OK with data \"%i\"", ret);
	Tcl_SetObjResult(interp, Tcl_NewIntObj(ret));
	return(TCL_OK);