diff options
author | suresh <suresh> | 1998-05-20 16:57:47 (GMT) |
---|---|---|
committer | suresh <suresh> | 1998-05-20 16:57:47 (GMT) |
commit | 8a4a4e3743796d8d1d39d682be5887e1ca9425c0 (patch) | |
tree | 7106902af29f184b6380e12f4188d3c03ee805ed /generic | |
parent | 6b7c77f618a86f95b65e4aae0332373a102aee62 (diff) | |
download | tcl-8a4a4e3743796d8d1d39d682be5887e1ca9425c0.zip tcl-8a4a4e3743796d8d1d39d682be5887e1ca9425c0.tar.gz tcl-8a4a4e3743796d8d1d39d682be5887e1ca9425c0.tar.bz2 |
Changed call ref's from 'stat(...)' to 'TclStat(...)'.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclFCmd.c | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index ffee889..ebbc109 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -141,12 +141,12 @@ FileCopyRename(interp, argc, argv, copyFlag) result = TCL_OK; /* - * Call stat() so that if target is a symlink that points to a directory - * we will put the sources in that directory instead of overwriting the - * symlink. + * Call TclStat() so that if target is a symlink that points to a + * directory we will put the sources in that directory instead of + * overwriting the symlink. */ - if ((stat(target, &statBuf) != 0) || !S_ISDIR(statBuf.st_mode)) { + if ((TclStat(target, &statBuf) != 0) || !S_ISDIR(statBuf.st_mode)) { if ((argc - i) > 2) { errno = ENOTDIR; Tcl_PosixError(interp); @@ -253,11 +253,12 @@ TclFileMakeDirsCmd(interp, argc, argv) char *target = Tcl_JoinPath(j + 1, pargv, &targetBuffer); /* - * Call stat() so that if target is a symlink that points to a - * directory we will create subdirectories in that directory. + * Call TclStat() so that if target is a symlink that points + * to a directory we will create subdirectories in that + * directory. */ - if (stat(target, &statBuf) == 0) { + if (TclStat(target, &statBuf) == 0) { if (!S_ISDIR(statBuf.st_mode)) { errno = EEXIST; errfile = target; |