Attachment "tcl-file-normalize-patch-20020613" to
ticket [566669ffff]
added by
taguchiv6
2002-06-13 11:42:48.
--- tclUnixFCmd.c.orig Tue Jun 11 09:49:55 2002
+++ tclUnixFCmd.c Thu Jun 13 13:31:04 2002
@@ -1691,6 +1691,10 @@
/* Update the acceptable point */
nextCheckpoint = currentPathEndPosition - path;
} else if (cur == 0) {
+ /* Update the acceptable point */
+ if (nextCheckpoint == 0) {
+ nextCheckpoint = pathLen;
+ }
break;
}
currentPathEndPosition++;
@@ -1704,6 +1708,7 @@
*/
#ifndef NO_REALPATH
nativePath = Tcl_UtfToExternalDString(NULL, path, nextCheckpoint, &ds);
+
if (Realpath(nativePath, normPath) != NULL) {
/*
* Free up the native path and put in its place the
