Description: |
From 3f0d4884b97007112100a18e4a3cb95b193a1dec Mon Sep 17 00:00:00 2001
From: Andreas Schwab <[email protected]>
Date: Wed, 27 May 2020 15:18:19 +0200
Subject: [PATCH] Fix index underflow
---
generic/tclFileName.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index 7ff7eecae..5e7b70dbe 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -2448,7 +2448,7 @@ DoGlob(
size_t len;
const char *joined = TclGetStringFromObj(joinedPtr,&len);
- if (strchr(separators, joined[len-1]) == NULL) {
+ if (len != 0 && strchr(separators, joined[len-1]) == NULL) {
Tcl_AppendToObj(joinedPtr, "/", 1);
}
}
@@ -2485,7 +2485,7 @@ DoGlob(
size_t len;
const char *joined = TclGetStringFromObj(joinedPtr,&len);
- if (strchr(separators, joined[len-1]) == NULL) {
+ if (len != 0 && strchr(separators, joined[len-1]) == NULL) {
if (Tcl_FSGetPathType(pathPtr) != TCL_PATH_VOLUME_RELATIVE) {
Tcl_AppendToObj(joinedPtr, "/", 1);
}
--
2.26.2
|