summaryrefslogtreecommitdiffstats
path: root/generic/tclFileName.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2016-06-21 11:10:10 (GMT)
committerdgp <dgp@users.sourceforge.net>2016-06-21 11:10:10 (GMT)
commitfa0cec87e3c5670b11c89aef1aba30201a22ea43 (patch)
tree1194cdecbd7ac2cdb81f98b82101236e813e0205 /generic/tclFileName.c
parenta1039f784b253c62adfa23a28f87403a118906fe (diff)
downloadtcl-fa0cec87e3c5670b11c89aef1aba30201a22ea43.zip
tcl-fa0cec87e3c5670b11c89aef1aba30201a22ea43.tar.gz
tcl-fa0cec87e3c5670b11c89aef1aba30201a22ea43.tar.bz2
Repair earlier bug fix. Stopped crash, but botched the logic for multiple
glob patterns.
Diffstat (limited to 'generic/tclFileName.c')
-rw-r--r--generic/tclFileName.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index bf463f5..2136883 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.c
@@ -1597,6 +1597,7 @@ Tcl_GlobObjCmd(
Tcl_DStringInit(&str);
for (i = 0; i < objc; i++) {
+ Tcl_DStringSetLength(&str, 0);
if (dir == PATH_GENERAL) {
TclDStringAppendDString(&str, &prefix);
}