diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-06-20 19:31:05 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-06-20 19:31:05 (GMT) |
| commit | 9c05483fcbef142cb5fbd9246956104ca475742c (patch) | |
| tree | 974b996fd0d221e828a370100264a0a28bf8571b | |
| parent | 248348175af7704dabfbd15c9f1b9cb0645db450 (diff) | |
| parent | b4bfd9a64a9a53cfbbd8a729a9a7ce7a0bcf95d0 (diff) | |
| download | tcl-9c05483fcbef142cb5fbd9246956104ca475742c.zip tcl-9c05483fcbef142cb5fbd9246956104ca475742c.tar.gz tcl-9c05483fcbef142cb5fbd9246956104ca475742c.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); } |