summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--unix/tclUnixFCmd.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c
index 3ec1a69..38cd958 100644
--- a/unix/tclUnixFCmd.c
+++ b/unix/tclUnixFCmd.c
@@ -933,7 +933,7 @@ GetGroupAttribute(interp, objIndex, fileName, attributePtrPtr)
struct stat statBuf;
struct group *groupPtr;
- if (stat(fileName, &statBuf) != 0) {
+ if (TclStat(fileName, &statBuf) != 0) {
Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
"could not stat file \"", fileName, "\": ",
Tcl_PosixError(interp), (char *) NULL);
@@ -977,7 +977,7 @@ GetOwnerAttribute(interp, objIndex, fileName, attributePtrPtr)
struct stat statBuf;
struct passwd *pwPtr;
- if (stat(fileName, &statBuf) != 0) {
+ if (TclStat(fileName, &statBuf) != 0) {
Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
"could not stat file \"", fileName, "\": ",
Tcl_PosixError(interp), (char *) NULL);
@@ -1021,7 +1021,7 @@ GetPermissionsAttribute(interp, objIndex, fileName, attributePtrPtr)
struct stat statBuf;
char returnString[6];
- if (stat(fileName, &statBuf) != 0) {
+ if (TclStat(fileName, &statBuf) != 0) {
Tcl_AppendStringsToObj(Tcl_GetObjResult(interp),
"could not stat file \"", fileName, "\": ",
Tcl_PosixError(interp), (char *) NULL);