From 9218425ba91dd9538d06db7a4d55e907737bd29e Mon Sep 17 00:00:00 2001 From: suresh Date: Wed, 20 May 1998 17:10:52 +0000 Subject: Changed call ref's from 'access(...)' to 'TclAccess(...)'. --- generic/tclFileName.c | 6 +++--- 1 file 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; -- cgit v0.12