diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-06-21 11:10:10 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-06-21 11:10:10 (GMT) |
| commit | fa0cec87e3c5670b11c89aef1aba30201a22ea43 (patch) | |
| tree | 1194cdecbd7ac2cdb81f98b82101236e813e0205 /generic/tclFileName.c | |
| parent | a1039f784b253c62adfa23a28f87403a118906fe (diff) | |
| download | tcl-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.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); } |