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 | e5320ae0d59e4a650318b9325e788f7a2aa1ded5 (patch) | |
| tree | 1194cdecbd7ac2cdb81f98b82101236e813e0205 /generic/tclFileName.c | |
| parent | eccf18644fd7326e2e8643815998e3dc87b84438 (diff) | |
| download | tcl-e5320ae0d59e4a650318b9325e788f7a2aa1ded5.zip tcl-e5320ae0d59e4a650318b9325e788f7a2aa1ded5.tar.gz tcl-e5320ae0d59e4a650318b9325e788f7a2aa1ded5.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); } |