diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CORE/vdir.h')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CORE/vdir.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/CORE/vdir.h b/Master/tlpkg/tlperl/lib/CORE/vdir.h index b5c6bc6f454..9ff225eb16b 100644 --- a/Master/tlpkg/tlperl/lib/CORE/vdir.h +++ b/Master/tlpkg/tlperl/lib/CORE/vdir.h @@ -203,7 +203,8 @@ int VDir::SetDirA(char const *pPath, int index) void VDir::FromEnvA(char *pEnv, int index) { /* gets the directory for index from the environment variable. */ while (*pEnv != '\0') { - if ((pEnv[0] == '=') && (DriveIndex(pEnv[1]) == index)) { + if ((pEnv[0] == '=') && (DriveIndex(pEnv[1]) == index) + && pEnv[2] == ':' && pEnv[3] == '=') { SetDirA(&pEnv[4], index); break; } @@ -215,7 +216,8 @@ void VDir::FromEnvA(char *pEnv, int index) void VDir::FromEnvW(WCHAR *pEnv, int index) { /* gets the directory for index from the environment variable. */ while (*pEnv != '\0') { - if ((pEnv[0] == '=') && (DriveIndex((char)pEnv[1]) == index)) { + if ((pEnv[0] == '=') && (DriveIndex((char)pEnv[1]) == index) + && pEnv[2] == ':' && pEnv[3] == '=') { SetDirW(&pEnv[4], index); break; } |