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

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

1 files changed, 12 insertions, 0 deletions

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);