diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-07-04 00:07:51 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-07-04 00:07:51 (GMT) |
| commit | fe2cecb7b71ceb3aa098a7a434332f0a15914375 (patch) | |
| tree | 6ee7d40f28f76cb96d1fbbb162fb7c6a60b69b6c /generic/tclFileName.c | |
| parent | 43aa6652a75496b31a78373f609e02318fb73fb4 (diff) | |
| download | tcl-fe2cecb7b71ceb3aa098a7a434332f0a15914375.zip tcl-fe2cecb7b71ceb3aa098a7a434332f0a15914375.tar.gz tcl-fe2cecb7b71ceb3aa098a7a434332f0a15914375.tar.bz2 | |
missed a spot
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 63faa6d..edb6581 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1575,8 +1575,7 @@ Tcl_GlobObjCmd( Tcl_DStringInit(&prefix); } for (i = 0; i < objc; i++) { - string = Tcl_GetStringFromObj(objv[i], &length); - Tcl_DStringAppend(&prefix, string, length); + TclDStringAppendObj(&prefix, objv[i]); if (i != objc -1) { Tcl_DStringAppend(&prefix, separators, 1); } |