rem: int len;
add: size_t len;
context: PutEnv(Tcl_Interp *interp, char *name, char *value){    char *s;    int len;    len = strlen(name);    if (value != NULL) {	len += strlen(value) + 1;    }    /* NB: Use malloc() directly as putenv() would expect. */    s = malloc(len + 1);    if (s == NULL) {	Tcl_SetResult(interp,		"could not allocate memory for new env entry", TCL_STATIC);	return TCL_ERROR;    }    strcpy(s, name);    if (value != NULL) {	strcat(s, "=");	strcat(s, value);    }    if (putenv(s) != 0) {	Tcl_AppendResult(interp, "could not put environment entry \"",		s, "\": ", Tcl_PosixError(interp), NULL);	free(s);	return TCL_ERROR;    }    return TCL_OK;}