diff options
| author | suresh <suresh> | 1998-05-20 17:33:52 (GMT) |
|---|---|---|
| committer | suresh <suresh> | 1998-05-20 17:33:52 (GMT) |
| commit | ee2ba26d61aed4aed9408688d438b1f3d565de55 (patch) | |
| tree | 31abc26120e28686d8f641466ec9818908378c4b | |
| parent | 9218425ba91dd9538d06db7a4d55e907737bd29e (diff) | |
| download | tcl-ee2ba26d61aed4aed9408688d438b1f3d565de55.zip tcl-ee2ba26d61aed4aed9408688d438b1f3d565de55.tar.gz tcl-ee2ba26d61aed4aed9408688d438b1f3d565de55.tar.bz2 | |
Changed call ref's of 'stat(...)' to 'TclStat(...)' and 'access(...)' to
'TclAccess(...)'.
| -rw-r--r-- | unix/tclUnixFile.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index eb11006..7f9644b 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -278,8 +278,8 @@ Tcl_FindExecutable(argv0) } } Tcl_DStringAppend(&buffer, argv0, -1); - if ((access(Tcl_DStringValue(&buffer), X_OK) == 0) - && (stat(Tcl_DStringValue(&buffer), &statBuf) == 0) + if ((TclAccess(Tcl_DStringValue(&buffer), X_OK) == 0) + && (TclStat(Tcl_DStringValue(&buffer), &statBuf) == 0) && S_ISREG(statBuf.st_mode)) { name = Tcl_DStringValue(&buffer); goto gotName; @@ -425,7 +425,7 @@ TclMatchFiles(interp, separators, dirPtr, pattern, tail) } else { dirName = dirPtr->string; } - if ((stat(dirName, &statBuf) != 0) || !S_ISDIR(statBuf.st_mode)) { + if ((TclStat(dirName, &statBuf) != 0) || !S_ISDIR(statBuf.st_mode)) { return TCL_OK; } @@ -511,7 +511,7 @@ TclMatchFiles(interp, separators, dirPtr, pattern, tail) Tcl_DStringAppend(dirPtr, entryPtr->d_name, -1); if (tail == NULL) { Tcl_AppendElement(interp, dirPtr->string); - } else if ((stat(dirPtr->string, &statBuf) == 0) + } else if ((TclStat(dirPtr->string, &statBuf) == 0) && S_ISDIR(statBuf.st_mode)) { Tcl_DStringAppend(dirPtr, "/", 1); result = TclDoGlob(interp, separators, dirPtr, tail); |