summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--unix/Makefile.in6
-rw-r--r--unix/tclUnixFCmd.c8
2 files changed, 7 insertions, 7 deletions
diff --git a/unix/Makefile.in b/unix/Makefile.in
index a30bafb..2cc3f20 100644
--- a/unix/Makefile.in
+++ b/unix/Makefile.in
@@ -5,7 +5,7 @@
# "autoconf" program (constructs like "@foo@" will get replaced in the
# actual Makefile.
#
-# RCS: @(#) $Id: Makefile.in,v 1.59 2000/02/14 22:40:56 ericm Exp $
+# RCS: @(#) $Id: Makefile.in,v 1.60 2000/04/04 08:05:56 hobbs Exp $
VERSION = @TCL_VERSION@
@@ -51,7 +51,7 @@ SCRIPT_INSTALL_DIR = $(INSTALL_ROOT)$(TCL_LIBRARY)
INCLUDE_INSTALL_DIR = $(INSTALL_ROOT)$(prefix)/include
# Top-level directory in which to install manual entries:
-MAN_INSTALL_DIR = $(INSTALL_ROOT)$(prefix)/man
+MAN_INSTALL_DIR = $(INSTALL_ROOT)@mandir@
# Directory in which to install manual entry for tclsh:
MAN1_INSTALL_DIR = $(MAN_INSTALL_DIR)/man1
@@ -460,7 +460,7 @@ topDirName:
gendate:
yacc -l $(GENERIC_DIR)/tclGetDate.y
sed -e 's/yy/TclDate/g' -e '/^#include <values.h>/d' \
- -e 's?SCCSID?RCS: @(#) $$Id: Makefile.in,v 1.59 2000/02/14 22:40:56 ericm Exp $$?' \
+ -e 's?SCCSID?RCS: @(#) $$Id: Makefile.in,v 1.60 2000/04/04 08:05:56 hobbs Exp $$?' \
-e '/#ifdef __STDC__/,/#endif/d' -e '/TclDateerrlab:/d' \
-e '/TclDatenewstate:/d' -e '/#pragma/d' \
-e '/#include <inttypes.h>/d' -e 's/const /CONST /g' \
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c
index f396d45..20998ca 100644
--- a/unix/tclUnixFCmd.c
+++ b/unix/tclUnixFCmd.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclUnixFCmd.c,v 1.5 2000/01/12 11:13:55 hobbs Exp $
+ * RCS: @(#) $Id: tclUnixFCmd.c,v 1.6 2000/04/04 08:05:57 hobbs Exp $
*
* Portions of this code were derived from NetBSD source code which has
* the following copyright notice:
@@ -1247,7 +1247,7 @@ SetGroupAttribute(interp, objIndex, fileName, attributePtr)
}
native = Tcl_UtfToExternalDString(NULL, fileName, -1, &ds);
- result = chown(native, -1, (gid_t) gid); /* INTL: Native. */
+ result = chown(native, (uid_t) -1, (gid_t) gid); /* INTL: Native. */
Tcl_DStringFree(&ds);
endgrent();
@@ -1308,14 +1308,14 @@ SetOwnerAttribute(interp, objIndex, fileName, attributePtr)
}
native = Tcl_UtfToExternalDString(NULL, fileName, -1, &ds);
- result = chown(native, uid, -1); /* INTL: Native. */
+ result = chown(native, (uid_t) uid, (gid_t) -1); /* INTL: Native. */
Tcl_DStringFree(&ds);
if (result != 0) {
Tcl_AppendResult(interp, "could not set owner for file \"", fileName,
"\": ", Tcl_PosixError(interp), (char *) NULL);
return TCL_ERROR;
- }
+ }
return TCL_OK;
}