diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-12 14:02:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2016-07-12 14:02:17 (GMT) |
| commit | c3c52cf7b01b43cdaf03d9069caccb9a22fde93f (patch) | |
| tree | 3e044ce67db4e17bca5e69bfa80718e241c9c202 /generic/tclCmdAH.c | |
| parent | 0ceae7a8858e4fc063aaed9c90e843c52b6c4769 (diff) | |
| download | tcl-c3c52cf7b01b43cdaf03d9069caccb9a22fde93f.zip tcl-c3c52cf7b01b43cdaf03d9069caccb9a22fde93f.tar.gz tcl-c3c52cf7b01b43cdaf03d9069caccb9a22fde93f.tar.bz2 | |
Fix "file owned" for Cygwin: st_uid is only 16-bit there.
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 13d3df5..88cc17d 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -1596,14 +1596,19 @@ FileAttrIsOwnedCmd( int objc, Tcl_Obj *const objv[]) { +#ifdef __CYGWIN__ +#define geteuid() (short)(geteuid)() +#endif +#if !defined(_WIN32) Tcl_StatBuf buf; +#endif int value = 0; if (objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "name"); return TCL_ERROR; } -#if defined(_WIN32) || defined(__CYGWIN__) +#if defined(_WIN32) value = TclWinFileOwned(objv[1]); #else if (GetStatBuf(NULL, objv[1], Tcl_FSStat, &buf) == TCL_OK) { |