diff options
author | dgp <dgp@users.sourceforge.net> | 2016-06-22 18:57:07 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-06-22 18:57:07 (GMT) |
commit | 9782b57e718a22de621fb4b222b4509922e77a08 (patch) | |
tree | 25bd1daac461615252314bf899c7358f52bf14d7 /generic/tclFileName.c | |
parent | 5f37ca27b1c063da4d683acdadc4ac1e458fa543 (diff) | |
parent | a584299193791f22e2e29fefceec030584feae54 (diff) | |
download | tcl-9782b57e718a22de621fb4b222b4509922e77a08.zip tcl-9782b57e718a22de621fb4b222b4509922e77a08.tar.gz tcl-9782b57e718a22de621fb4b222b4509922e77a08.tar.bz2 |
merge 8.6
Diffstat (limited to 'generic/tclFileName.c')
-rw-r--r-- | generic/tclFileName.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 39bac99..2136883 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1595,8 +1595,9 @@ Tcl_GlobObjCmd( } else if (dir == PATH_GENERAL) { Tcl_DString str; + Tcl_DStringInit(&str); for (i = 0; i < objc; i++) { - Tcl_DStringInit(&str); + Tcl_DStringSetLength(&str, 0); if (dir == PATH_GENERAL) { TclDStringAppendDString(&str, &prefix); } |