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 | 8445a0021076cd7ebc53982e380990d3668c4e1f (patch) | |
| tree | e6b17f0951c07f9a9b6ec2f1593c6976038a7d34 /generic/tclFileName.c | |
| parent | 482ab2e9dc9a2db3f9ee113e2b871359bbd2d09e (diff) | |
| download | tcl-8445a0021076cd7ebc53982e380990d3668c4e1f.zip tcl-8445a0021076cd7ebc53982e380990d3668c4e1f.tar.gz tcl-8445a0021076cd7ebc53982e380990d3668c4e1f.tar.bz2 | |
[c383ebb5e4] Match DStringInit and DStringFree properly.
Diffstat (limited to 'generic/tclFileName.c')
| -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); } |