Check-in [59157f7f93]
Overview
SHA1:59157f7f9328732bacc17c7ed746333860cc4737
Date: 2017-01-10 21:23:54
User: rkeene
Comment:Fixed "setuid" to not return in failure when it succeeds
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2017-01-10
21:29
[2f6147e93d] Added documentation for setuid/getuid (user: rkeene, tags: trunk)
21:23
[59157f7f93] Fixed "setuid" to not return in failure when it succeeds (user: rkeene, tags: trunk)
21:22
[6f341b0c52] Implemented "setuid" (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) {