Tcl Source Code

Artifact bfb35b4bbee864c0fc8f5b6ce922ab6d2c7b6f90:

Index: generic/tclFileName.c
===================================================================
RCS file: /data/igor/donahue/cvsroot/sun/tcl/generic/tclFileName.c,v
retrieving revision 1.1.1.23.2.3
diff -u -r1.1.1.23.2.3 tclFileName.c
--- generic/tclFileName.c	29 Jun 2005 17:52:35 -0000	1.1.1.23.2.3
+++ generic/tclFileName.c	11 May 2006 21:03:34 -0000
@@ -2346,6 +2346,9 @@
 	} else if (strchr(separators, *tail) == NULL) {
 	    break;
 	}
+	if (tclPlatform != TCL_PLATFORM_MAC) {
+	    Tcl_DStringAppend(headPtr, tail, 1);
+	}
 	count++;
     }
 
@@ -2387,7 +2390,6 @@
 	     * trailing slash if needed.  Otherwise add the slash if
 	     * this is the first absolute element, or a later relative
 	     * element.  Add an extra slash if this is a UNC path.
-	     */
 
 	    if (*name == ':') {
 		Tcl_DStringAppend(headPtr, ":", 1);
@@ -2403,13 +2405,13 @@
 		    Tcl_DStringAppend(headPtr, "/", 1);
 		}
 	    }
+	     */
 	    
 	    break;
 	case TCL_PLATFORM_UNIX:
 	    /*
 	     * Add a separator if this is the first absolute element, or
 	     * a later relative element.
-	     */
 
 	    if ((*tail != '\0')
 		    && (((length > 0)
@@ -2417,6 +2419,7 @@
 			    || ((length == 0) && (count > 0)))) {
 		Tcl_DStringAppend(headPtr, "/", 1);
 	    }
+	     */
 	    break;
     }