diff options
author | dgp <dgp@users.sourceforge.net> | 2016-06-21 11:11:14 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-06-21 11:11:14 (GMT) |
commit | 47593ffc5f6d722c616077fb304913de86953d8d (patch) | |
tree | 7cbbb119982f5d703e29546c4da7e76d54f3441f /generic | |
parent | ed339310b2d04275401fc97dc1cd4c38c3b727d8 (diff) | |
parent | fa0cec87e3c5670b11c89aef1aba30201a22ea43 (diff) | |
download | tcl-47593ffc5f6d722c616077fb304913de86953d8d.zip tcl-47593ffc5f6d722c616077fb304913de86953d8d.tar.gz tcl-47593ffc5f6d722c616077fb304913de86953d8d.tar.bz2 |
Repair earlier bug fix. Stopped crash, but botched the logic for multiple glob patterns.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclFileName.c | 1 |
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); } |