diff options
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 919b8d0..74f7b21 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1607,8 +1607,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); } |