Attachment "941108.patch" to
ticket [941108ffff]
added by
dgp
2004-04-24 10:00:23.
Index: unix/tclUnixFCmd.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixFCmd.c,v
retrieving revision 1.36
diff -u -r1.36 tclUnixFCmd.c
--- unix/tclUnixFCmd.c 6 Apr 2004 22:25:56 -0000 1.36
+++ unix/tclUnixFCmd.c 24 Apr 2004 02:57:54 -0000
@@ -1810,8 +1810,8 @@
&& (strcmp(normPath, nativePath) == 0)) {
/* String is unchanged */
Tcl_DStringFree(&ds);
- if (path[nextCheckpoint] != '\0') {
- nextCheckpoint++;
+ if (0 == access(normPath, F_OK)) {
+ return pathLen;
}
return nextCheckpoint;
}