Tcl Source Code

Artifact 8914f683b4954ec1d7d14c222e0e950dc40a9755:

Attachment "tcl-patch-ac" to ticket [566669ffff] added by taguchiv6 2002-06-11 08:12:07.

---

--- tclUnixFCmd.c.orig	Tue Jun 11 09:49:55 2002
+++ tclUnixFCmd.c	Tue Jun 11 09:58:24 2002
@@ -1691,6 +1691,8 @@
 	    /* Update the acceptable point */
 	    nextCheckpoint = currentPathEndPosition - path;
 	} else if (cur == 0) {
+	    /* Update the acceptable point */
+	    nextCheckpoint = pathLen;
 	    break;
 	}
 	currentPathEndPosition++;