diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-06-20 19:23:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-06-20 19:23:17 (GMT) |
| commit | b4bfd9a64a9a53cfbbd8a729a9a7ce7a0bcf95d0 (patch) | |
| tree | e6b17f0951c07f9a9b6ec2f1593c6976038a7d34 | |
| parent | 8824470ed0704024b804da2d301cf0d05a63ee04 (diff) | |
| download | tcl-b4bfd9a64a9a53cfbbd8a729a9a7ce7a0bcf95d0.zip tcl-b4bfd9a64a9a53cfbbd8a729a9a7ce7a0bcf95d0.tar.gz tcl-b4bfd9a64a9a53cfbbd8a729a9a7ce7a0bcf95d0.tar.bz2 | |
[c383ebb5e4] Match DStringInit and DStringFree properly.
| -rw-r--r-- | generic/tclFileName.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 39bac99..bf463f5 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1595,8 +1595,8 @@ Tcl_GlobObjCmd( } else if (dir == PATH_GENERAL) { Tcl_DString str; + Tcl_DStringInit(&str); for (i = 0; i < objc; i++) { - Tcl_DStringInit(&str); if (dir == PATH_GENERAL) { TclDStringAppendDString(&str, &prefix); } |