diff options
| author | suresh <suresh> | 1998-05-20 17:10:52 (GMT) |
|---|---|---|
| committer | suresh <suresh> | 1998-05-20 17:10:52 (GMT) |
| commit | 9218425ba91dd9538d06db7a4d55e907737bd29e (patch) | |
| tree | 1eeea5e9bcb7ae7f779409586c5ef82c7113db65 | |
| parent | 8a4a4e3743796d8d1d39d682be5887e1ca9425c0 (diff) | |
| download | tcl-9218425ba91dd9538d06db7a4d55e907737bd29e.zip tcl-9218425ba91dd9538d06db7a4d55e907737bd29e.tar.gz tcl-9218425ba91dd9538d06db7a4d55e907737bd29e.tar.bz2 | |
Changed call ref's from 'access(...)' to 'TclAccess(...)'.
| -rw-r--r-- | generic/tclFileName.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 2024b61..10036c9 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1558,7 +1558,7 @@ TclDoGlob(interp, separators, headPtr, tail) Tcl_DStringAppend(headPtr, ":", 1); } name = Tcl_DStringValue(headPtr); - if (access(name, F_OK) == 0) { + if (TclAccess(name, F_OK) == 0) { if ((name[1] != '\0') && (strchr(name+1, ':') == NULL)) { Tcl_AppendElement(interp, name+1); } else { @@ -1589,7 +1589,7 @@ TclDoGlob(interp, separators, headPtr, tail) } } name = Tcl_DStringValue(headPtr); - exists = (access(name, F_OK) == 0); + exists = (TclAccess(name, F_OK) == 0); for (p = name; *p != '\0'; p++) { if (*p == '\\') { *p = '/'; @@ -1609,7 +1609,7 @@ TclDoGlob(interp, separators, headPtr, tail) } } name = Tcl_DStringValue(headPtr); - if (access(name, F_OK) == 0) { + if (TclAccess(name, F_OK) == 0) { Tcl_AppendElement(interp, name); } break; |