Check-in [59157f7f93]
Overview
Comment:Fixed "setuid" to not return in failure when it succeeds
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 59157f7f9328732bacc17c7ed746333860cc4737
User & Date: rkeene on 2017-01-10 21:23:54
Other Links: manifest | tags
Context
2017-01-10
21:29
Added documentation for setuid/getuid check-in: 2f6147e93d user: rkeene tags: trunk
21:23
Fixed "setuid" to not return in failure when it succeeds check-in: 59157f7f93 user: rkeene tags: trunk
21:22
Implemented "setuid" check-in: 6f341b0c52 user: rkeene tags: trunk
Changes

Modified tuapi.c from [1d22e5c805] to [5d107fd93d].

663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
		Tcl_SetObjResult(interp, Tcl_NewStringObj("setuid failed", -1));

		return(TCL_ERROR);
	}

	Tcl_SetObjResult(interp, Tcl_NewStringObj("", -1));

	return(TCL_ERROR);
}

static int tuapi_getuid(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
	uid_t uid;
	Tcl_WideInt tclUid;

	if (objc != 1) {







|







663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
		Tcl_SetObjResult(interp, Tcl_NewStringObj("setuid failed", -1));

		return(TCL_ERROR);
	}

	Tcl_SetObjResult(interp, Tcl_NewStringObj("", -1));

	return(TCL_OK);
}

static int tuapi_getuid(ClientData cd, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]) {
	uid_t uid;
	Tcl_WideInt tclUid;

	if (objc != 1) {