[Bug 3603434] Make sure TclpObjNormalizePath() properly declares "a:/" to

be normalized, even when no "A:" drive is present on the system.

2 files changed, 18 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 747e1e8..3fa781c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2013-02-05  Don Porter  <dgp@users.sourceforge.net>
+
+	* win/tclWinFile.c:	[Bug 3603434] Make sure TclpObjNormalizePath() 
+	properly declares "a:/" to be normalized, even when no "A:" drive is
+	present on the system.
+
 2013-02-05  Donal K. Fellows  <dkf@users.sf.net>
 
 	* generic/tclLoadNone.c (TclpLoadMemory): [Bug 3433012]: Added dummy
diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index 7224345..5717a3f 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -2570,6 +2570,12 @@ TclpObjNormalizePath(
 				}
 				Tcl_DStringAppend(&dsNorm, nativePath, len);
 				lastValidPathEnd = currentPathEndPosition;
+			    } else if (nextCheckpoint == 0) {
+				/* Path starts with a drive designation
+				 * that's not actually on the system.
+				 * We still must normalize up past the
+				 * first separator.  [Bug 3603434] */
+				currentPathEndPosition++;
 			    }
 			}
 			Tcl_DStringFree(&ds);
@@ -2712,6 +2718,12 @@ TclpObjNormalizePath(
 			    Tcl_DStringAppend(&dsNorm, nativePath,
 				    (int)(sizeof(WCHAR) * len));
 			    lastValidPathEnd = currentPathEndPosition;
+			} else if (nextCheckpoint == 0) {
+			    /* Path starts with a drive designation
+			     * that's not actually on the system.
+			     * We still must normalize up past the
+			     * first separator.  [Bug 3603434] */
+			    currentPathEndPosition++;
 			}
 		    }
 		    Tcl_DStringFree(&ds);